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ABSTRACT 


This thesis is concerned with the following 
two problems : 

i) How can we decompose a large block structure 
program into smaller related components such 
that the resultant components can be used in 
Planned Overlay Schemes of memory management? 

ii) bhat are the requirements of a separate 

compilation facility for block structured 
languages? 

We have approached both these problems through PASCAL, 
an example block-structured language. As s. test case* we 
have used the PASREL compiler and have obtained its 
decomposition that suits our purpose. 
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CHAPTER 1 


INTRODUCTION 

In any computer system, efficient memory management 
is very important so as to obtain high, efficiency of 
resource utilization and a satisfactory performance in 
the overall aims of the computer installation# The 
technique chosen for memory management should be closely 
dependant on the type of the work load of the computer 
and on the characteristics of the hardware available. Now* 
since the physical memory and even the virtual memory 
has some limits, it is possible that a program may be so 
large that it just cannot fit into the memory all at one 
time. Thus large programs cannot be run until and unless 
they are broken up into smaller parts in some way* 

Our interest in this problem area arose because 
we were interested in transferring a large PASCAL 

compiler onto the local TDC-316 system#. A cross-compiler 

. . * 

for PASCAL for PDP-11 running on the DEC system -10 was 
the starting point of this study* . Unfortunately, the 
version of PASCAL on which this compiler could be cross- 
compiled was not available locally# We then became 
interested in segmenting the program into snail segments 
so that It could fit in the limited memory resources of 
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TDC 316* Two problems that arose from this effort 
were ; 

i) How do we generally break a large block struc- 
tured v PASCAL) program into small parts so as 
to run it on small machines using simple memory 
management techniques? 

ii) How do we independantly compile procedures 
(arbitrarily nested) in a block structured 
langua ge? 

These two problems are tackled in this thesis* 

1 • 1 v Some Methods of Memory Management : 

To execute programs too large for a certain computer 
system what is required, essentially, is to keep only 
those parts of the program in main memory which are 
required at that time* A reference to a part of the 
program not in main memory may cause the replacement of 
a part in memory by the referenced part. 

At this point, it would be useful to clearly 
recognize that a program has its logical requirements 
of instruction code and data space. The logical 
requirement is met by mapping the instructions and data 
of the program into an address space, which may be 



virtual ox physical. Considering that the program itself 
is possibly constructed from several components with 
their own. independent logical requirements, the basic 
problems in constructing the above mapping are relocation 
and linkage respectively. 

Relocation causes a translation (shift) of some 
addresses used in the program so that the program (or 
even a component of a program) is consistent in its use 
of the address space with respect to a new origin. 

linkage problems are inherently concerned with 
the resolution of references across component boundaries 
(after the relocation problem has been tackled). 

/ill memory management schemes are concerned with 
the above two issues. They differ only in the time, 
with respect to the execution of the program, at which 
the above problems are resolved. 

£ome of the methods of memory management available 
are, very briefly, as follows [2,3]s 

(1) Planned Overlay s Overlaying is a technique 
where parts of a program are held on some external (or 
secondary) storage device and brought into main memory 
as required. In planned overlay, segments of the 
program are identified which need not be in main memory 



4 


together. The relationship of program segments also 
have to he planned in advance by the programmer. This 
method will he discussed in detail later. 

In planned overlay, all relocation and linking 
is resolved before execution starts. 

(ii) Dynami c Overlay : In this method no pre-planned 
overlay structure is required. As and when program 
segnents are required, they are brought into main memory 
by explicit calls to the linking loader by the progra- 
mmer. In certain cases, segments of the same program 

may be executed in parallel, in others, only serially. 

(iii) Paging : In this scheme the main memory is 
divided into fixed length ’page frames', and each 
program into same length ’pages'. There are various 
sub-schemes for paging, which differ in when pages are 
brought into and when they are removed from main memory. 

(iv) Segmenting ; It is similar to paging, except 
that the programs are divided logically into variable 
length 'segments'. The segments may be further divided 
up into pages. Segmentation without paging is similar 
to Dynamic Serial Overlays. 
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1 .2 Situations that are suitable for Planned Overlay ; 

In the case where the virtual memory is small or 
the physical memory is equal to the virtual memory, 
large programs will have to be broken up into an overlay 
structure to reduce their requirement of memory at any 
given time* 

Programs that can be logically divided into major 
sections are well suited for planned overlay execution [ 2] . 
Also if the program structure follows well defined 
rules, planned overlay is suitable* 

Planned overlay structures can be more efficient 
in terms of execution speeds compared to dynamic overlays 
because the linkage editor procedure permits direct 
references by one segment to values whose locations are 
identified by external symbols in another segment. There 
is no need to collect such values in a consolidated 
parameter list. Planned overlay optimizes the use of 
main memory, has lesser run-time overhead in comparison 
with Dynamic Overlay or Paging because there is no need 
for performing relocation, linkage or map table 
maintenance* 

These advantages tend to diminish as the users* 
programs get more and more complex, particularly when 
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the logical selection of subprograms depends on the 
data being processed [2] . In this case, Dynamic 
Overlays seem better. A combination of both Planned 
and Dynamic Overlay structures may also be used. A 
module linked dynamically may itself operate in the 
planned overlay mode, and within a planned overlay 
program one may include dynamic overlaying. 

1 . 3 Memory Requirements for Block Structured Languages ; 

Memory required by a program written in a block 
structured language can be classified as follows [4] s 

i) Global dat a ; This is permanently allocated 
for each program. 

ii) Local data of procedures ; This is usually 
allocated on the run-time stack on procedure call and 
deallocated on return from the procedure. 

iii) Dynamically created data ; This is usually 
allocated by a heap mechanism with some kind of 
garbage collection. 

iv) Program code 

Using Planned Overlay structures it is possible to 
overlay program code but not data. This is because data in the 

stack is dynamically created and referenced with respect 

to a base that is dynamically ascertained. 
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1*4 PASCAL Implementation s 

The implementation of PASCAL involves the running 
of the PASCAL compiler, which itself is a large program. 
If the compiler is a one-pass type, it has to perform 
the whole lot of functions involved in compilation at 
one go. Thus it naturally "becomes very large, and 
implementation of PASCAL on mini and micro computers 
is not possible due to memory constraints. If the 
compilation could be broken into a number of phases, 
then parts of the compiler can overlay each other, thereby 
reducing the total memory requirement. The phases could 
be scanning the input a number of times, each time 
perforating a small task, or also having one phase produce 
an output which could be the input to the next phase. 

By increasing the number of phases, the compiler can be 
divided into smaller and smaller sections which may 
overlay each other, enabling the implanentation of 
PASCAL on mini and micro computers, 

1,5 Structure of the Thesis : 

The first step in this thesis was the study of 
some tree - structured planned overlay systems, which 
is given in Chapter 2, In Chapter 3 are given a few 
algorithms which were developed and worked out for finding 

overlay tree structures* which did not give 
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satisfactory... result s, for block structured, 

languages# Chapter 4 formalizes the basic problem in 
the construction of overlay trees fo r block-structured 
programs* Here, we apply the idea of strongly connected 
components of digraphs to the call graph of a program 
and obtain the minimally constrained Overlay Tree. A 
possible partition for the PASREL compiler, according 
to the algorithm which was implemented, is given in 
Chapter 5# Finally, in Chapter 6, the requirements for 
independant compilation facility for block structured 
languages to permit use of overlay techniques, are givoi 4 . 
The last Chapter 7, contains the conclusions drawn 
from the work done for this thesis# 



CHAPTER 2 


OVERLAYING AND GENERAL REQUIREMENTS FOR TREE -STRUCTURED 
OVERLAYING LOADERS 

Essentially, the technique of overlaying involves 
the division of large programs into smaller parts such 
that the parts are held on some secondary memoiy and 
brought into main memory only when they are required. 

Thus different parts of a program may occupy the same 
area of memory at different times. Generally, the 
routines of a program are grouped into a permanent unit 
and . a number of overlay u nit s (or nodes ) , and the 
available memoiy is divided into a permanent area and 
one or more overlay area s [1 ] * The permanent area holds 
the permanent unit as well as the non-over laid data 
areas, which provides a communication area for overlay 
units occupying different overlay areas. Each overlay 
area holds, at any one time, one of a specified list 
of overlay units. This means that two units allocated 
to the same area cannot be in memory simultaneously. 

2.1 Overlaying : 

To enable overlaying, the assembler must provide 
pseudo - operations by which the programmer can 
indicate how the program is divided up, that is, which 
routines are in one overlay unit, which overlay units 
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occupy the same memory area and which routines are in the 
permanent area. This information has to he passed on 
by the assembler to the linkage editor and loader* 

The implementation of the overlaying technique - 
involves a number of stages [1] * In the first stage, 
each routine is compiled separately and each overlay 
unit is linked like a complete program. Its storage 
requirements are evaluated and cross-references filled 
in. The difference is that calls to other routines have 
their addresses flagged as relative "bo the start of their 
own overlay area (unknown at this time) or to the start 
of the permanent area. 

The second stage determines the size of the 
overlay areas* The size of an area is obviously that 
of the largest overlay unit that will occupy it. Once 
the sizes of all overlay areas have been determined, 
memory can be allocated and the origin for each overlay 
area determined. 

The last stage is loading. One-by'-one, each overlay 
unit is processed, being relocated according to the origin 
previously calculated, and the resulting binary is 
outputted to the secondary store. At this stage, it is 
not necessary to load a unit into the memory area in. 
which it will be executed. 
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Finally, the permanent area is set up, and a 
table is made which gives the secondary storage address 
of each, overlay unit and its associated overlay area, 
i'he program which reads and writes overlay units (called 
the Overlay Handler) is incorporated into the permanent 
area by the usual library mechanism. 

2.2 Requirements of a Tree-Structured Overlaying Loader s 

let us now consider the overlay facility available 
with the LINK-10 Linking Loader of the DEC systan-10 [6], 
The overlay program has a tree structure.. The nodes 
of the tree are called links , each of which contains 
one or more program modules. The links are connected by 
paths . 

The top node of the overlay tree is called the root 
link , and it contains the permanent overlay unit, that is, 
the main program, the Overlay Handler, the non-overlaid 
data areas and such procedures in the program which are 
required to be present in main memory throughout the 
execution of the program. Below the root link are the 
first-level links, each of which is connected to the 
root link by one path. The level of the links increases 
as we go further down away from the root link. A link 
at level n is connected by a path to exactly one link 
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(the father link) at level n-1 . It is obvious that 
a link can have more than one downward path (to 
successor links), but only one upward path (to ancestor 
links ) . 

An overlay tree structure with six links is 
shown in Pig. 1 . The code in a given link can make 
reference only to memory in links along a direct upward 
or downward path, i.e. in a link which is vertically 
connected to it. Thus, the link C can reference memory 
in itself, in the root link A, or in its successor 
links D, E and P. A reference to memory in B from C 
would be illegal. 

In the overlay tree, all nodes at any one level 
overlay each other. In the tree shown, B and G overlay 
each other, and only one amongst D, E and P can be in 
main memory at one time. One more type of reference 
that is not allowed, but may arise due to recursion, 
is a call from C to E if it is possible for P to call G. 
This is because, once P calls C and G in turn calls 
E, E would try to overlay P which has not yet finished 
execution. 

Due to the restrictions in memory references, only- 
one complete (at most) vertical path is required in 
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root link 


level-1 


level -2 



Tig. 1 i An overlay tree structure 


the virtual address space at any one time. The remaining 
links can be stored on a disk till they are required. 

2.3 Program to Supervise Overlays : 


There is a program which supervises the execution 
of an overlay program. Whenever a reference is made to 
a link which is not in memory, this program brings in the 
link, possibly overlaying one or more links already in 
memory. In the DSC system-10, this program is called the 
Overlay Handler [6]. The Overlay Handler is loaded into 
the root link, so that it is always in memory and can 
supervise .overlaying operations from there. 


Using the Overlay Handler, there are two ways 
of overlaying links during executions* 

1 . Implicit overlaying .; A reference to a link 

not in memory implicitly calls the Overlay Handler to overlay 
one or more links with the required links# 






CHAPTER 3 


OVERLAY TECHNIQUES FOR BLOCK STRUCTURED PROGRAMS 

The Block Structure Tree of a program is available 
to start with. Using the information of calls to and 
calls by each procedure, an overlay tree is to be const- 
ructed keeping in mind the requirements given in 
Chapter 2, 

There are basically two ways in which the technique 
of overlaying can be used for reducing the memory require- 
ments of a program 

i) Programmed (or dynamic) overlaying of nodes ; 

This method uses the facility of the Overlay Handler by 
which the programmer can explicitly cause the overlaying 
of overlay units (links), No re-structuring of the 
program is necessary, but the programmer has to insert 
calls to the overlay Handler at the appropriate places 
in the program. That means that the programmer has to 
keep track of the amount of memory used up by the program 
at different times during execution and if it crosses 
a certain limit, he must overlay certain units. At this 
point he must be careful that he does not overlay a 
calling procedure, i.e., one which has been executed 
only partially and control has passed out of it due to a 
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call by that procedure. The programer will have to use 
the static link information to decide which overlay 
units will have to be brought in when a call is made to 
a procedure not in main memory* 

This method is cumbersome and messy , and 
demands too much of work by the programmer* As far as 
restructuring and division of the program into overlay 
units is concerned, it is a trivial case. 

(ii) Automatic overlaying; In this method, the 
Overlay Handler is called implicitly whenever a call is 
made to a procedure which is not in the main memory. The 
Overlay Handler then brings in the called unit, possibly 
overlaying a number of overlay units, according to some 
pre-planned overlay structure. This overlay structure 
is so planned that it takes care of all the requirements 
of the overlaying loader, or the Overlay Handler in 
DEC-10, like not overlaying a calling node etc. 

So the main problem in using overlays boils down 
to re-etruct uring . of the Block Structure Tree so 
that it conforms to the requirements of an overlaying 
loader. An algorithm which could give such an Overlay 
Tree would be very useful. Therefore a number of 
algorithms were developed and manually worked out for 
a large block structured program. 
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The "best overlay tree is the one for -which the 
total amount of memory required is the minimum, and also 
which uses memory for the least time during execution. 
Therefore, procedures which are rarely called should not 

be very high in the overlay tree because the higher a 

f 

node, more is the time it spends in memory. Also, the 

it' 

overlay tree nodes should be as small as possible, in 
terms of memory required, A number of overlay trees 
may be possible for the same program. The programmer can 
select the one which has the minimum total memory 
requiremait • 

3.1 Heuristic Algorithms for Constructing Overlay Trees ; 

The basic methodology adopted in the algorithms 
developed is as follows: 

The main program body was invariably put into the 
root node. All the pro ce dure s/f£mct ions declared in 
the main program (on level 1) were initially grouped 
together into one node, which is at level 1 of the 
Overlay Tree. In one of the algorithms, only those 
procedures which are declared in, as well as called by, 
the main program were put into this node. Then this node 
was split up into a number of brother nodes, all children 
of the same root node. All those procedures which call 
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each other have to be kept, in one node. Those which do 
not call, 'and are not called by, any procedure in the 
node under consideration were seperated out into seperate 
nodes. A procedure which, is called by a number of 
procedures in that node was shifted up into the parent 
node, or up into a new node at an intermediate level 
with all the calling procedures being kept in nodes which 
are children of this new node. 

The above is repeated for all the procedures 
already placed in the overlay tree, i.e., all procedures 
declared in a certain procedure are initially grouped 
together into a child node, and then this node is splito 
But now one more thing has to be considered — a. call 
backwards or upwards from the node under consideration, 
say from procedure A to procedure B. This sort of a 
call may cause probians, because tne called procedure, B, 
may in turn call another procedure, say G, which may 
cause the overlaying of the first procedure, A. In this 
case, either the finally called (0) or the initially 
calling (A) procedure alongwith the procedures on the 
path have to be moved up into the node which has the 
backward called procedure (B). In one of the algorithms, 
the two paths were merged into one. One more possibility 
exists for a backward call- that the backward called 
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procedure does not fall on the vertical path to the root. 

In that case, it has to he moved up in the tree till it 
falls on the route, or else the two nodes (calling and 
called) have* to he merged. After this step, all the calls 
to and from the shifted procedures have to he re-consi- 
dered to eliminate all possibilities of a calling 
procedure being overlaid. 

In the algorithms where only those procedures which 
are declared in, as well as called ty , a procedure were 
initially grouped together, procedures which were not callc 
were included in the first node from which they are called. 
This has an effect of pushing some procedures down in the 
overlay tree, which is good. 

One of the algorithms developed took the block 
structure tree and started splitting/ joining nodes from 
bottom up, using the same rules as the other algorithms 
discussed above. 

It was seen that the algorithms were becoming very 
complicated because calls by procedures do not follow 
any set rules or pattern. A large number of possibilities 
had to be considered. Even then, it was seen that the 
overlay trees obtained did not help in reducing the total 
memory requirements of large programs because one of the 
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vertical paths invariably became very long compared 
to the others, 

The possibility of duplicating procedures to seperate 
two paths was also considered. But ultimately it was 
felt that no automatic algorithm could be developed which 
would give an appreciable reduction in the total amount 
of memory required, or the time for which memory is 
required by a program. This was attributed to the 
numerous other factors involved. 

Some of the factors responsible for making 
the construction of Overlay Trees more complicated arei 

i) The number of times a procedure is called 
should affect its position in the Overlay Tree, 

ii) The size of code of a procedure should also 
be considered. 

iii) Average time of execution of a procedure has 
an affect on the time for which memory is required 
by it. 

Considering all these points, it was felt that an 
automatic algorithm should just give the basic, essential 
division of a program (i.e, which procedures have to 
be in one node in all cases), alongwith all the calls 
information. Then it can be left to the programmer to 
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consider all the factors discussed and constructed an 
Overlay Tree. This sort of an algorithm is available 
if we adopt the Graph Theory approach, which is 
discussed in the next chapter. 


i , M-IVRUR 

te. No. A 



CHAPTER 4 

GRAPH THEORY APPLIED TO OVE RLA Y TREES 

Before the application of Graph Theory to the 
construction of Overlay Trees is discussed, it would 
he useful to define those terms of Graph Theory which 
will be used in this thesis, 

4.1 Definitions [7]y 

(i) Graph ; It is a finite set (V) together with a 
prescribed collection (E) of unordered pair of distinct 
elements, 

e.g, ; V ={ 1 ,2, 3, 4, 5,6 > 

E ={ (1,2), (2,3), (3,4), (4,5), 

(5,6), (6,2), ( 6, 4)f 



Pig. 2; An example of a Graph 

(ii) Edge ; Each unordered pair is called an edge, 
i.e., each element of E is an edge. 

(iii) Vertex ; Each element of the finite set (V) is 
called a Vertex. These are also known as Bodes of the graphs 
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property if no larger subgraph contains it as a subgraph 
and has the property. 

(xv) Strongly Connect e d (or Strong) Component j It is 
a maximal subgraph, of a digraph, in which every two points 
are mutually reachable. 

4.2 An Algorithm to Determ ine the Strongly Connected 
Components of a Digraphs 

A digraph and its strongly connected components 



Figure 3; A digraph with its strongly connected 
components outlined by dashed lines. 

Depth -first search can be applied to a digraph to 
determine the strongly connected components [5]. What is 
done in a depth-first search is this - one vertex (v) is 
"visited", than one of the edges from v (say, (v,w)) is 
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followed* If th.e vertex w has been previously, visited, 
we return to v and choose another edge. If w has not 
been visited, we visit it and apply the process recur- 
sively to w. After all the edges leading out from v 
have been thus examined, we go back along the edge Cu-, v) 
that led us to v and continue exploring edges incident 
on u. 

let us consider what happens when we traverse 
the edges of a digraph G along their orientations 
during a depth-first search on G. We assign a serial 
number noden o(x) to each vertex x the first time we 
visit it* If we encounter an edge (v, w) that has not 
been traversed, and w has not yet been visited, we mark 
this edge as a tree edge . If w has already been visited, 
then w may or may not be an ancestor of v. If w is an 
ancestor of v, then clearly nodeno(w)' < nodeno(v)' and 
( v, w) is a back edge . If w is not an ancestor of v, and 
nodeno(w) > nodeno(v) then w must be a descendant of 
v and the edge (v,w) is called a forward edge . If nodeno(w) 
nodeno(v) and w is neither an ancestor nor a 
descendant of v, then the edge (v, w) is called a 
cross edge * 

ligure 4(a) shows a digraph G which is represented 
by its adjacency structure shown, and figure 4(b) shows 
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a sc 
b;h,i 
c »d, e, g 
d :a»g 
esg 

f sc, e,h 
gsd 

h;a,i 
i sf 


♦ 


Pig, 4(a); A digraph G and its adjacency structure 



Pig # 4(b) s Digraph G- after a depth first search on it* 
The result consists of 2 trees (boldface) 9 
3 back edges (dashed lines), 4 cross edges 
(crossed lines), and 2 forward edges 
(dotted lines ) m 



the partitioning of the edges into four subsets as a 
result of the depth-first search. The numbers on 
vertices represent nodeno values. 

Though the tree (or forest) generated by a depth - 
first search is not unique, it helps in determining 
the strongly connected components* Obviously, the 
forward edges can be ignored, since they do not affect 
strong connectivity. Also, both back and cross edges 
from v can only go to vertices x for which nodeno(v) )> 
nodeno(2c)» A little reasoning will show that if S is 
a strongly connected component of 0, then the vertices 
of S define a tree which is a subgraph of the 
spanning forest. 

To recognize the strongly connected components, 
we just have to identify the roots of iiu© corresponding 
subtrees. To recognize these roots, we define enclblkno ( v) 
• to be the number of the smallest numbered vertex in 
the same strongly connected component as v that can be 
reached by following zero or more tree edges followed at 
most by one back edge or one cross edge. Thus, v is 
such a root if and only if nodeno(v) = enclblkno(v) » 

An algorithm, taken from [5] , using the above 
facts and determining the strongly connected components 
of a digraph, given by its Adjacency structure Adj(x), 
is given below. We maintain a stack S, 
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procedure FINDCOMPS; 
kegyp ■ 

i := 0; 

initialize S as an empty stack; 
for all vertices x in ¥ do 
nodeno(x) s= 0; 
for all vertices j: in V do 

if nodeno(x) = 0 then STR0RG( x) 

end ; 

procedure STRONG-C^) 

begin 

i := i+1 ; 

nodeno(v) ;= i; 

enclblkno(v) t= i; 

push v >onto stack 8; 
for all w in Ad j( v ) do, 

if nodeno(w) = 0 then 

begin (*(v,w) is a tree edge*) 

STR0NG(w), ; 

enclblkno(v) := minimum of ( enclblkno( v) , 
enclblkno(w) ) 

end 

else if nodeno(w) <^nodeno(v) then 
(*(v»w) is a back edge or a cross edge*) 
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if w is on S then 

(*wis in the same strongly connected 
component as v, since w on S means 
there is a path from w to v *) 
enclblkno( v) := minimum of 
(enclblkno(v) , nodeno(w))? 
if enclblkno(v) = nodenc(v) then 

( * v is the root of a strongly 
connected component *) 
while x, the top vertex on S, 

satisfies nodeno(x) '£■ nodeno(v) do 
add x to the current strongly 
connected component and delete x 
from S. 

end ; 

4.3 Ga ll Gr ap h and Overlay free Generation s 

If each procedure /function in a program is thought 
of as a vertex and each call from one procedure to another 
as a directed edge, we have a digraph which is known as 
a cQ-H graph . Once we obtain the can graph, the first 
step towards generating the Overlay Tree would be to 
determine the strongly connected components of this graph. 

Now it is obvious that all the procedures in one strongly 
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connected component have to he kept in one node (or link) 
of the Overlay Tree. The last section shows that 
automatic determination of strongly connected components 
is quite simple. As pointed out in the last chapter, 
having generated this essential division of a program, we 
leave it to the programmer to construct the Overlay Tree 
considering the numerous other factors involved. 

4 . 3. 1 Gall Graph Generation . 0 

Generation of the call graph posed very interesting 
data structuring and procedure-name- table maintenance 
problems. We started with a simple lexical analyser 
which processed a subset of PASCAL (it was later modi- 
fied to process the complete PASCAL). 

We declared the following data structures 
type 

PRO C PTE. = f PROCNODEJ 
1IST0PPR0C = f NEXTPROC » 

RE XT PRO C = record 

PROC s PRO CPTR ; 

■ NEXT 2 LISTOEPROC 


end 
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PROCNODE = record 


NAME t ALPHA ; 

LLIM, RUNE £ PROCPTR; 
case ISPRDG £ boolean of 


true t ( DECLPROC J PROCPTR ; 

GAILS, CALLEDBY, 

STRO R GCOMP ;LI STOEPROC ; 

0 NC STAGE % bo o 1 ean ; 

NODENO, ENCLBLKNO : integer) 

end; 

,r 

DISPLAY ! array [ 0, .LEVMAX] of record 

PROCSS SPROGPTRI 
CURRENT :PROCPTR 


TOP ; 0., LEVmAX; 


end; 


The procedure -name- table is maintained in DISPLAY 
[TOP]* PROGS as an unbalanced binary tree at each declaration 
level. While processing a procedure/function declaration, 
a call is made to procedure ENTERPBDC which creates a 
new P10GN0DB, initializes all its fields and enters it 
in the appropriate place in the name -table. Then BNTERPROC. 
also incranents TOP, assigns the pointer to the procedure 
we have just entered to DISPLAY [TOP]. CURRENT , and 
initializes DISPLAY [TOP]. PROGS in anticipation of 
procedure declarati ore within this procedure. 
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On finally coming out of a procedure block, the 
DISPLAY [ TOP] • CURRENT f. DECLPROC is assigned the ■value 
of the pointer to the name-table (tree) of procedures 
declared in it, i*e., DISPIAY [TOP]. PROGS, and then 
TOP is decremented* 

While processing the body of a procedure or 
function, whenever a call to another procedure or function 
is enco unt er ed , a call is made to procedure ENTERCALL 
which enters the call in both the called procedure (in 
field CALLEDBY) and the calling procedure (in field CALLS)* 

At this point we realized that we were getting some errors 
due to the fact that a reference to a local variable 
in FACTOR was being entered as a call to a procedure of 
the same name at a lower level. Therefore, it was 
decided that all names of variables and constants declared 
should also be stored in the name -table, with, the 
information that it is not a procedure being given by ISPROG* 

Finally, we not only had the Gall Graph, but also 
the Galled By information and the static nesting of 
procedures in the input program. 

4.3*2 Determination of Strongly Connected Components i 

Procedures FINDCOMPS and STRONG (discussed in sec 4.2) 
were also implemented in the same program, to determine the 
strongly connected components of the Gall Graph already 
generated. The listing of the program is attached (see 
Appendix A) , 



CHAPTER 5 

APPLICATION TO A RECURSIVE DESCENT COMPILER 

The algorithms developed in Chapter 3 were 
applied to the PASREL compiler. As mentioned in that 
chapter, an appreciable reduction in the total memory 
requirement was not obtained. 

The results obtained on the application of the 
program discussed in Section 4.3 to the PASREL compiler 
are attached. The program gives the strongly connected 
components, the calls by each procedure (the Call Graph), 
the procedures which call a procedure, and the static 
nesting of procedures in the program (see Appendix B)» 



CHAPTER 6 V 

CHAH3-ES IN PASREL TO SUPPORT OVERLAYS 

Since, in overlaying, the codes of procedures in 
a program may be overlaying each other, we would be 
interested in compiling each procedure (or a pre-planned 
group of procedures) seperately. Seperate compilation 
of procedures is possible in PASREL for those procedures 
which are declared at level 1 , by using the M-option. 

We are interested in a facility that will allow seperate 
compilation of any procedure in a PASCAL program. For 
this purposes the scope rules of the language require 
that all the global user definitions with respect to 
the procedure of interest be available. To enable this, 
we have considered the two schemes given below. 

(i) All the symbols or identifiers declared in a procedure 
are written out onto the secondary store, in a seperate file. 

In this way, all the symbols declared within different proce- 
dures will be available in different files ..on the secondary 
8 to re* When a procedure body is to be compiled, those 
files which contain the symbols which can be referenced by 
this procedure (according to the rules of PASCAL) are 
brought into the main memory. One way of doing this is to 
include an option in PASREL, say S+, which constructs the 
global symbol table using the named, files. 
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(ii) Only Hie procedure "bodies should be declared 
EXTERN, so that the declarations within each procedure 
are treated as usual, i.e*, the* symbol table is maintained 
in the normal way. 

& ' 
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CONCLUSIONS AND SUGGESTIONS POE. PURIHER WORK 

After having developed and tried out a number 
of algorithms to generate Overlay Trees, we concluded 
that the problem was too complex, involving too many 
factors, for a completely automatic Overlay Tree 
Generator to be possible. The minimal requirements 
are met by the strongly connected components of the 
Call Graph, therefore this algorithm was implemented 
and tried out for the PASRBL compiler. The results 
obtained are very encouraging* With all the calls between 
the strongly connected components available, it would 
be quite simple to generate the Overlay Tree manually 
by duplicating or merging nodes. 

This algorithm is an instance of interesting 
language processing tastes* We must explore the possi- 
bilities of such models like Gall Graphs for getting 
other properties of programs. 

Though it is a basic requirement for overlaying, 
the implementation of seperate compilation of procedures 
on DEC system-10 would be a useful addition to the 
features of the compiler. It would make large programs 
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like the PaSREL compiler, easier to handle for editing 
etc. At present, a minor alteration in a large program 
causes the editing of the entire file and the re- 
compilation of the whole program. With the seperate 
compilation facility, just one procedure may have to 
he re-compiled. 

Our original aim was to suggest a way to break 
up large programs so that the PASREL compiler could be 
loaded and run on the local 'IDG-316 system. Je have 
made such a suggestion, but the implementation of 
PASCAL on IDG -31 6 requires a lot of more work. We hope 
that some one would take up the challenge and go ahead 
with the task. 
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appendix a 


PROGRAM LISTING 


This Program carries out Syntax Analysis, 
generates the call Graqh (alongwith the Call 
by an<i static Nesting information!, and 
determines Its Strongly Connected Comoonents 



const 


A *■ 1 


?,np>i = * > : 

at, = 1 > r 

1,-SV = 1 n ,* 

■ ri’i’J 1 • , r o - # Mt* |t CONGRATS’ 

f, of ir *" *,=■ ' 1,1 i T AJ P I! T I*" T j F ' * 

! ' V - * ( I'l r 1R$ Pi C |‘ I- - r T F n * • 

r.rsr'Av - -i • 

K T t/ ? y *m If' • 


Y0!1 tfIK 


I l NO ERRHPS DETECTED * ; 


tVL-O 


■*' f , ? . RFAfjNIJM PfjTJS, MtNUS.TT MES, SL ASH, POINTER , 

//;.L'v^ F ri-l^ A CSn^ R £« c 5 PT ^ syw ' NE ^£^ TSVM / FpFsyM 

I CY " , OES YY . assign. comm a . PFBT nn . cFMtrnr n« . rnr.n« . 


c? Y P ? F< r, 

f ^nr, ? f npv 

? ^ f ** r § * ' ’ *y a? ft r i . k hK a E r * fqs v w . rierym . r.TS v m . FO^f 

r v , , !" ” Y * , nfcsjfV , ASSt^N.CONMA, ^BRTOD. SENIcfif QN.cfiiiON, 

,M •» *>N| tYN , n»SYM , NOTS^M r 0 IvSy» , NdnSvM . begins^ m, endSym 
IFFY' STSYM PACKEDSYM. ‘ ' 

t .|F m S Y s i , Rl„,SFSY ‘t WHTLESYM , DOSYM , RRpiTATSYM , fJNTTIiSYM # 
f Y o f t v * , v AP r, Y^ . APR AYSYW , OFSYM r F ILESYM .RF^nRDSYM , 
c > rr,Y % P ! <M u- s Y >•' , p R n q s y M ; I M s Y M > 0 R A R n ^ Y M , S F T s Y‘< 

T •nt'-r -|'!T r^YM PTHFRSYM. ttiT T FROCSYw , F.xTFRNSYM , 
rnp-,% '.'tun " , onwNTOSYM , C* SFSYM # GOTOSiM , WT TH 5 YM ) ? 

y.t'H - r^rtTfH frr-w ft„.ALl Of. char? 

SYMSFTsset of SVYRfiLj 


prpcptr = * pPorMnnFr 
UfiTflPPS'ir r - MFXTPROCl 
MFXTPPjr = record 

ppnr » prdcptr ? 
NEXT : T.TRTOFPROC 

pnrl ; 


ppnr M ^nF S r«cnrrt 

MAMF : AT, PH A; 

T.LTNK.RLTMK j procptr? 
case TSPRnC s boolean of 

true : (DECLPROC : PROCPTR? 

CALLS ,C A LLEDRY .STROM GCOMP ; 

LISTOPPROC? 

OWCSTACK ; boolean?. 

NODGNO,KNCLBIiK*iO : Inteqer ) 

end ; 

stack a array CO . . STM AX 1 of PROCPTR? 


var 

CR : coar ? 


sym : symbol? 

word : array Cl . .norwi of ALPHA? 

imsym * arrav C1..N0RW1 of SYMBOL ? 

SSY '* : array f char 1 of SYMBOL? 

i.tnr s nacKc-i array C1..LMAX] of char? 

CC , LL : O..LMAX? 

EPRCmiNT: 1 ..100? 

COM STRFGSYm . STMPTYBEGS 
0 f C L B F SSY*,STATBeG5YM, 


ym, SELECTS Y5*TYPERBGSYM,TYPDECL, 
Facbeosymjsymset? 



nTSPi’sv * -ir r «vr^,,r 1 Fv^v 1 nf r(acor(5 

PRUC5 ; PROCPTPf 
CURRENT ; PROCPTR 
end ; 


prppR * a r r * v M..UOSP] of A I f 5 H n» y 

f,i !' "FfO" * ‘mol ofln? 

M’firtE • POOCpTR? 

5TPTO , nrpT'J . inf ener f 

p <? t a c x , n P si* ; STACK p 

n r o c P d < i n o HA h T ; 

H p p t n 
a r\ ^ * 

prnre lure epror ( m • j nfeqer) 7 
const 

FRP’lFSs'ERRDP "f 
hen | p 

WPT T^L'K output, EPRMES.W) 7 
WRT r c ’r J VCTTY,EWRMFS.M) t 
fr Rrnii mt:=frrcdunt+ i 

*>nd ; 


procedure <\> F x t c h > 

f unct inn rAPTTAfj(CH:char>:chari 

ne-jifn c a p t t a l s *rn ; 

If n,.n(c 1 n>i 40R then 

r ft P I T A L • af HR ( OR n f CH ) - 40R ) 

pni* 
h e n 1 n 

t f CC=LL then 

if FPF(IMP!IT) then HALT 
0 1 s 0 

hentn LL s =0 : CCs=0» 
nuTPlJT*: = * 't 
PUT( OUTPUT) f 

while not (EOLN (INPUT) ) do 
neotn LL?=LL+1 ; 
tiTWR [LL3 :sINPUT*7 
n!rmjT A **TNPUT'‘j 
PUT (OUTPUT) I 
GET ( T.NPMT) 
en 1 ; 

PUTJjMC OUTPUT) j 

llj =ll+i 7 

T.ruerUi] 't 
G ET( INPUT) 
end ? 

PCs sort 1 i 

CH»Bf’APIT'V?>(tiJ ! MFCCC3 ) 
end f 

procedure GETSYM j 
var 

T,.T,K i lntpoer » 

A ; ALPHA 7 

function CiETTER. boolean i 

of* 'i i o 

if (ORn(r:H)>anRn( # A')) and cordcch)<*ord < •%* 

r.ETTERjatrue 
else LETTER :»fal$e 
end 7 


function n i r; ? v • §■ oo 1 ean ? 
neiin 

I f 


f n , '' rr;*=t;?n^‘’ nC '°' n * n1 C1Rr) f CH ) <=OR0 ( 'R ' ) 1 then 

a i r r r T i . 


''i r c ct : sf a I se 

p p 1 f 


' in MRXTCHi 

‘ t h p n 


ft f K ] :=re 


hen 1 n 

while rn: 
t f f j f rr?i 
h p 1 1 n 
^ • * 1*1 £ 

» ; h 1 1 >? m;t r r> r 
I^TTFR do 
h f» n i n 

if k < a r, tnen 
b A a 1 n K s=K + l • 

A IV)! 

MKXPCH 

pt); 

while " < 'j. io 
non In << • sK + 1 f A T K 1 ; s ' ' 

« H ^ ® 

I ? ® i ; t: = 'jnp'</; 

I’pnofii- 

< : s ( r + i } ,it v 2 ? 

If n<ts VI)P*> r K 1 then JJeK-1; 

If A> = -VrtRDrKl then T ; *K + 1 
until T >7 f * n t i 

If T -1 >.t then f?YMS sWSYM tKl 
e 1 S P 

henl n h Y ’ ‘ t ®TDENT$ PNAMF • = a 
pnd 

p n 1 

1 % p 

if ninir then 

h p n | n 

whl 1 e DTGTT do N F X T C H i 

SY”:sTMTNI!M ? 

If r n = ' n ' then 1 ! EXTCH 
else 
heal n 

If CHs'. ' then 
begin NEXTCHy 

If CH='. ' then CH:=': r 
else 

if digit then 
heain SYMjbREALNUM? 
while DIGIT do 

uextch 

end 

else 

beqln 

,$YM;sN!?L? 

ERROR (1)1 
OFTSYW 
end 

end j 

If (CHx'F'l or fCHs'e') then 

heain NEXTCH } 

if (CH*' + M or ( CH® ' ** ' 1 then mextchj 

If DTGTT then 
heain SYM j=REALH!JM J 
while DIGIT do 
HEXTCH 

end 

else 

heain 

SYMi*NUL? 

ERROR (2 ) J 
GETSYM 
end 

end 

end 

end 


n 


o 

1 f 

rp* 


# " then 

F* X T r H f 

•.'hi 1 C CH<>"" d D HFXTCHi 

‘tfyrcf • 

SYMSs^TPlflR 
until rH<>"" 
e i se 

if CH='<' then 
Hen-In HFXTf’H? 

If CHz'y' then 
Heqin SYMjstfESYMjr WpXTCH 
end 
else 

if rw='=' then 

Heatn SYM :=fjPSY *< t nfxttm 

end . 

else fSYM-sUSYM 

end 

el s & 

if C«s'>' then 
neal n -‘•px t C»; 
if r«s's' then 
Hen In SYMs=GFSYM? UFXTCH 
end 

else SYKjsGTSYm 
end 
e ! s a 

if rn=':' then 
beain YEXTCHJ 
If CH='=' then 

beqin SYM: s ASSIGV j xjjrxTCH 
end 

else SYW?=COLO« 
end 

else , . 

if CH=', ' then 
beain WEXTCH; 
if CH* # , ' then 
beain SYH;sC n im«* NFXTCH 
end 

else SYM i sPCRTDD 
end 
else 

if CHs f ' then 
beain NEXTCH ? 
if CH- * then 
beain xEXTCH t 
reneat 

while d 0 

HEXTCH 

until CHa ' ) ' i 
SYMJsMULy 

nfxtch» 

GFTSYM 

end 

else 

SYHjsl/PARFN 

end 

else . , 

t£ CHs'% then 
begin 
repeat 
MEXTCH 

until CHs'v': 
sym i* mn,f 

HEXTC«I 

GETSYH 

end 


NEXTCHJI 



m n ; 


If CCH*'f '3 
(CH* ' * * 3 or 
or 

or CCH=')') 
CCH = # i '3 or 


or (CH 
ICRs'# 
beoin 
SYM 
end 
else 
begin 
SYM 


J 


or CCHs'-') or 
( CH= V ' ) or 
(rHs's'i or C CH 
or 

CCHs'iM or CCH 
or 


’1 then 
laSSYMtCHl ? 


MFXTCH 


„ . =NUL? 

ERROR (3)7 
WEXTCH f 
SBTSYM 
end; 


funct 1 no 
hr o 1 o 


y w: (h^y t 

'f^TSY* J# r.jP!X»SVw 


Sboolean; 


function 
hr o f o 
pnb 


r r t c, y u <iset (lexset;SYMSET) jboolean; 

r^TSYMfKPt != SY» in LEXSET 7 


prime lyre TP »T I S 1 , S? ! SYYSET f N { int eoer ) ? 
beo i n 

1+ not rESTSYMTNKetCSn th«0 
hr tin ERROR (M); SI S= SI + S 2 f 

<hi i p not TFSTSY* TNRet (Si) GETSYM 

eni 

not? 


procedure CHECKS YM(rsYM|SYM1?0U ERR tlnteqer 3 1 
ben i o 

if r^STSYMCCRYM) then GETSYm 

else PRRDR r ERR 3 
end; 

procedure rstimsfrtc var IN PR or s proc' 5 tp3 ; 

var 

LPROC f r,PRf3rt ; procptr i 
llfft^ntryoonf ! boolean; 

heoin 

FMTR YOONF t» false? 

r.ppor := n r spt, ^ y r top i t procsi 

if LPROC a nil 

then DISPLAY r TOP 3, PROCS :* 

else 
b e o t n 
repeat 

LPRnrt : = LPROC; 
if LPROC % NAME <a INPROC * 
then 
oeqtn 

if LPROC ", name * INPROC 

I* $& I'S 

heoln ENTRYDONE 
end } 

LPROC != LPROC * 
end 
else 
beqin 


INPROC 

. NAME 

*, NAME 
= true? inproc ; = LPROC 
rlimk; llfft j« false 


LPROC ?s LPROC *, llimk; LLEFT *■ true 


QMjl 

until LPROC * nil? 
if not ENTRYDONE 
then 

if LLEFT 

then LPR0C1 
else LPR0C1 A . 

end 

end? 


% llink := inproc 
r£ink ;s inproc 


prnc^ dnr- - vA n ; 

va r 

u i\ h? ; nunrPTR • 

hen 5 n 

••t v ( • i' \ p , f a i s p 3 : 

V 1 t 1 Ho 

HplJn 

pnij 1 "" r ’* UM * :? TJ,TVK nil? BUNK t= nil 

OCT ( ’i^rsjTf iFVVhP ) 
end * 


oroco n T n*. *■* o roost (FSYS* symrft) j 

hP1 1 O 

u s-.'.-rUwnU’S) 1 ;.^;; s;^r"" ,,sm then 

P.lS? 

l f f f ^rnTRYMC TNT'IHM) ) or CTESTSYK REAT.NUM))) then 

f f r* ,.; r S Y ■ ■ ' 


- 1 S n rFSTf n ,FSYS,tOt) 

on : 


procedure C'^S T * 'TI, I s f ( FSYS s SYMSET )* 
h 6> ‘7 i n 

If p p S p % y f 5?T»TNfi ) 
i- non GFTSY** 

pH" STGNFPrnNSt ( FSYS + (COLON) ) j 
tf SY-’ - T'VI^A 
t hf>n 
no 7 ( n 

1 F F S Y ^ jf 

0 vjjvr A m.Tst- f FRYR 1 
on I 
on d ; 


procedure C"»» 1 S rDEF C FSYS I SY *RET) ? 
non i n 

rssrr rnu.ST&EGS Y*. FRYR, 102 )* 

If rPS TRY tf STRING) then r,K TSYY 
r 1 ^n ST WnCHNSttFSYS) 
end ? 

procedure Comstoect, (fsys*sy»*sft) t 
bealn 

T E 8 T f r T OEMT 1 , FRYR, 103 ) J 
wnt \ o TR.STRY«(I»E«T) do 
bCjlo ENTERVAR* GETSYMJ 
If TRS TRY** (EQRYM) then 
hooln GETRYM f 

CnYSTDEFCFSYS+ (SEMICOLON ) ) t 
CHECE$YM( SEMI COLON, 53 
end 

else ERROR ( 4 ) 

0 f*| *'| J* 

TESTf [TfWn+FRYS, M ,1 04) 
end j 

procedure ( 0 E 0 TLTST (FSYS I RYMSET) ? 
healn 

TFRTf [TnFRTI, FRYS, 606 ) t 
If fFSTRYMC ThFNTl then 

Lf> l f n OEWVARR then ENTERVAR ; 

GFrSY M 

end; 

while TFSTSYWf(COMHA) do 

be. iln GETSYM ; 

fhFN rTiIST ( F 5 YS+ [COMM A] 3 
end 
end f 


W 


prortv<nr'* s ’ - ”i,r rYPF(FSYS* svmrrt ) j 
beoi.n 

T r S f •' I i " rv m-'GS V m , FSYR , 1 1 ft ) ; 
if rrs' f "',YVT!vi,Set(RT^PTYRRC?Rvm') then 

he tin 

if T K t : rsYMfSTRlMC) then 
ben tn SE T RVM * 

r l<’C^SY^(ChT,hM,nn) . CHECKSYMf STRINfl, 21) 

p n ri 
p 1 $ p 

if tfrtrymc T.PARFN) then 
h e o 1 n GFTS/M; mfwvaPS : = true I 
I UEH ft, JST C FSYS+ TRPARFM I ) » 

J^mPR • = f«ise; ' 

r'RFf'KSYMfRPARjPM 22) 

end 

H n 7 1 n m s I 1 ’ eh cn ns t c ps ys * £ cn i,nw i ) ? 

if T’rRTSiMcrnr.nh) then 
ben In GFTSYM • STGNFDCONStCFSYS) 

end 

end 

P n i 

end ; 


procedure TVPFORF ( F5YS J SYMSFf ) ? 
f o r w a r 3 * 


procedure r.PPAY rYPE f FRYS ; SY«SFT 3 i 

heat n rtsrr n hpackeT) ,fryr,?7) j 

f f T n r t t ;; Y f f ! , U R A T F F! T ) then 
heuin G F P S Y M f 

S’ in!,FrYPF!rFSY,S+ CCOMMA , RBRACKETl 3 : 
vhile PFSTSYMCC'IMMA'I do 
heoi n R rMPI.RTYPGf FSYS + COMMA , RBR ACKFT] 3 

end ; 

If TFRTRYM(RHRACKFT) then GETSYM 
Pise FRPiiR £ 24) ? 
if TRsrRYM(nFSYM) then GETSYM 
else ERROR (?5)? 

TYPEhFFCFRYS) 
enl 
end ; 


procedure FTFLDMSTf FRYSsSYMSFT) ? 
heal n 

while TFRTRYM ( TRENT ) do 

T RENTE I ST f FRYS + CCOTjON) )? 

check s y m ( cm, on, mi ) ; 

TYPFnFFf FRYS t [SEMTCOEON , ENhSYM, CASESYM) ) 
If TRSTRYM ( REMicnt.OH ) then GETSYM 

i f ' TFSTSYd ( CASESYW ) then 
heal n 

GF f R Y *" J 

CHECKS Y«( TOENT.9R2 )/ 
if tfrtrym f COlflN ) then 
heal n GETSYM » CHECKSYM ( IDENT ,953 ) 

CHECKS YM ( OFSYM ,954 ) ? 

1 00^ 

rnnsTANTT.Tst C FSYS + CCGTjOM] ) ; 

CHECKSYMf COtOM,955 1? 

CHFCKSYM( lPAREN,95fi ) ? 

FT FI, hi, 1ST ( FSYS + CRPAREN] 3? 

CMECKSYM C RPAREN , 957 ) ! 

exit if sym « semicolon; 

GET SY?i I 

en?f 

enl 

eni? 



pr or*' ' >1 r « < , 't i | ■■ >i r> ■ T r 'tpi'T) » 

non 1 n 

f f "'•i't ' ( nFCnRORY^) then 
h« j f n c; { " • 

r- T , f ) T , r ^Tf FRYS rpt-inRY**] ) * 

‘"u--r /. " v ** r v 'ory* ,?a> 

f!»> i 

O ] «I •;.» 

nf i f n C^ c ! r KSYM( APR AYSYM , •><>) • 

A R * A Y T Y P F f F R Y S ) 
r» n •; 
end ; 


nr or ed or e RF n V RF ( FRYS t SYMfiRT ) * 
hf ni o <“,|FCF S Y unPSYH, 10) ; 

Ri KSV1) 

nnH; 


prorpinr'* rYPRprr • 
bPR 1 n 

t 1 F S r f T Y P E U F 0 R Y M , F ,R V r , t 1 2 1 f 

If Tf'S T ir TfCRet ( TYPFIREfiSYM) then 

be oln 

If TFRTSYM(RFTSYW) then 
h?i!n CFTSYM? SFTYPFCFSYS) 
i» n h 

f S Tf tfsTRYM f FTLESYM ) then 

be Iln tiFTSYMjCHFCKSYMf OFSYM,930 ) ? 

i'ypfdkf c fsys ) 

end 

’ir TFSTSYh(PACKFDSYM) then 
benin CFTSYM? TYPEPEFC FRYS ) 
end 

else 

If TFSTSYM (POINTER) then 
beciin OFTSYMj CHECKSYF(TDENT,31) 

end 

else 

if ( TESTSYMlNSet ( CRECDRDSYM, ARRAYSVM1 ) ) 
then RFCARR(FSYS1 
else SINPLETYPECFSYS) ? 

TEST(FSYS, H ,113) 
end 
end } 

procedure TYPFOFCL ( FS YS J RYMSET) ? 
hen 1 n 

TEST ( riPF^'T! , FSYS, 103) ? 
while TFSTSYP(TDENT) do 
he i 1 n F m TERVAR; GETSYY? 

CHErKSYM(rnsYY,4) > 

TYprr»FF(Fsyst (semicolon) ) ? 

C'*FfKRYM (SEMICOLON, 5) 

TFR r’f F T P F IT) +F8YS, (1 ,104) 
end ; 


procedure VARDECTi(FRYSsSYMSFT)? 

h e n 1 n 

M E W V A R S S = true? 

rPr, rni.'rTT.TST f FSYRt rCPLON) ) ? 

CHECKSYbC COLON , 321 ? 
rvpFPFF ( PSYS+ (SEMICOLON) ) ? 

until^f Kot M TlRTS?M(IDfeNT) ) and not TESTSYMINSet CTYPDECM 

NFWVARS te false 
end? 


pr r & 

var 

m p t \4 p r 




)l 


ur * pp nc^TP ? 

h e n i n 

m* „•> f uv n ?nr f t rue 
with hF *> p u nr ^ in 
h e :i f n 

"‘U'*p 5 s; pHA^Fl 

r; h i nuv sr r ,i] 

nrrf.rpnr • s nil: 
‘imcmac* :s false 
pril! 


LL 


ilk := nil? 

EfcCt.BI.KNO ; = 

CALLS j r nil 


BLINK •= nil? 

0? NODPIND :s 0! 

; s tp omgcom p • = 


rs t i w.sfrt r ■ip’ vpRnc) ? 

TOP • s "HP + 1 • 

HTSpr.nv r enp i , PRPCS ?s nil? 
DTCPLAY r TCP 1 , CURRENT ? = NEWPROC 
rna : 


nil? 


procedure E M TFRSTPPRocs I 
var 

t • intrnpr; 

sTnppnr i pphcptp? 

bento 

t * = if 

nj splay r tdp 1 . ppncs ? = nil? 

repeal. 

\.f i ( srnpRnr.trnp )i 
#in\ s^npp nr * ao 
b r n t n 

NAMR : as srnppfT]? L L T N K ; = 

CALLFDBY s s Ml? DECLPROC ? = nil? . ENCLBTjKWO ;= 0 
STRONGCDMP ;= ‘ ----- 


nil? 

:= falsa 


CURRENT Js STDPROC? 


calls 
nuc stack 

t f r' - 1 Than DISPLAY t 1 ] . 

BSTTN PERT (STDPROC) ? 

T T 4 1 

until 7 > 14 

anrl ? 

function SEARCHPRnCISNAWE ; ATiPH A ) S PRQCPTR? 
var 

LPROC s PRCCPTR? 

LTnp * integer ? 

FLAG ; boolean? 
begin 

i.Tnp * s t n p ; 

LPROC ? = DT SPLAY f LTOP ) . PROCS? 

FLAG !* LPROC # nil? 
while FLAG a 0 
henln 

If LPROC *, name < S^AME 

then LPROC s = LPROC % RLTNK 

° 1 S f f LPROC % MAMF = SMA^E 
then FLAG s= false 
else LPRnc := LPROC % LLIMK? 

If FLAG then FLAG J* LPROC # nil 

enC ; 

{.TOP 1= I, TOP -I? 

If LPROC # nil then FLAG ;= LPROC ' 
until fLTOn < 05 or FLAG? 
it FLAG then FLAG :& LPROC % JSPROC? 

If FLAG tnen SFARCHPROC ? = LPROC 
a] se SFARCHPROC is oil 
end ? 


nil? RLINK ;= nil? 
:= nil? . ENCLBLKNO 

nil? nooeno ?= o» 


NAME a SMAME 



he Cf i n 
f , I , p 
Fhn, 

ur h 1 

r< p» 


n 

! f ' 
the 
be 


CURRENT 


CAIiLSf 


PNAME then Ft, AG ;= false? 


pi 

pn*l ? 

prcceinr 
for war 


: = display! top i 

G ;= T -f,n * nn ; 

1 '» FT. AG In 

I I n 

1, f t . ? i p ' . ppnr », hjrmp 

If PI, AG then 

M,P := TT.P % NEXT? FLAG LLP # Ml 

p fl d 

i : 

V ,•> = nil 
n 

II n 

CAM pnppnr ;= SFAR.CHPROC( pnaME i • 

if r.u.LFOPPOC 1 nil (* CALLEDPROC»NTL INDICATES IT IS A 

VARIABLE*) 

then 
Hp -f l n 

MEW( f T,P 1 . 

LLP *. PROC S s CAM.EDPROC? 

LLP *. NFXT ;= DISPLAY! TOP 1, CURRENT *, CALLS? 
PTSPT.AY r TOP 1. CURRENT *, CA&LS is LLP? 

NEW ( LLn )? 

Li.p *. ppnc s= display r top i , current? 

LLP *. NEXT S= CALLEDPROC * , CALLEDRY ; 

CAM.EHPROC *, CALLEDBY ?» LLP 

onl 

d 


e ft" YPRESST HN ( FSYS J SY W SET ) ? 
1? 


procedure CXPLTST(FSYS?RYMSFT)? 
ben in 
EXP 
1 f 

be 


en 
TES 
end ? 


R T S S T r>N ( FS Y s + ! CO N M A . COLO H ] ) ? 

TESTS Yd TNSptC (COMMA , COLON] ) then 
Tin GETSYM? 

EXPLISTf ESYS) 

1 ? 

TfFSYS, (] ,601) 


procedure SELECTOR (FSYSlSYMSET) ? 
becrin 
If 

bp 


e rn 
an* ? 


TESTSYM I NSet (SELECTS YS) then 

If n TFSTS YN(LUPACXET) then 
berjin GETSYM? 

EXPfiTSTfFSYS+CRBRACKET] ) ? 
CHECKSYM(RBRACKET,9) 
end 

e1 *lf TESTSYMC PERIOD) then 
herjin GETSYM? 

CHECKSYMCIDENT, 10) 

pnd 

^ 1 s |f TESTSYM(POINTER) then GETSYM ? 
SELECTOR CFSYS) 
d 


procedure eonorvar (FSY s * SYMSET) 
ben in SELECTOR ( FSYS+ iLPAPEN j / 
If TERTSYdCLPAREN) then 

^^gXPLI STfFsI'St CRPARENJ )? 

CHECKSUM CRPAREN , 1 1 ) 
end 


procedure ''A i , ' t ' ip f fry 1 ', * SY'ISKT ) t 
hen In 

rr^i'f f jvch.usY.' (•’SYS, 1fi7l! 

if FT hT-v-'T suet f P'ArftiTflSVH) r hen 

b «»» if b 

'ff ~vs rRY" r rnt": n then 

K<w,in >• i"vprMj,. np^syt,- . puMORV AR ( F<?YS) 

’ 1 * f .;y;;^ ! ;^ ( iv T”r» # reau«i»h, s rHinoi ) ) then 

o \ *; f 

if -if wn r rr>Y--n then 

hen 1 n C E T s y ; ; factor f PSVR7 

i>nH 

filSO 

if ' 7, f-''?T 1 SY*’n l PARKh) th*»n 
I'M! n (JF FRY -'4 j 

FVrKM’.RRT'h-f FSYS+tRPARfNI ) * 
f’HFCKRYYf RPARE*J,1>) 
end 

fa I <50 

If TESTS YW ( LRR ACKET ) then 
henln 

OR TSYVJ 

if not (TBRTRY'UMPACKsm ) then 
EXPOTSTfESYSt f RRRACXET) ) j 
CUE CKSYM(RRf?ACKET,ni 
end 

P n J • 

TES Tf FS YS, ri ,108) 
end | 

procedure rERM(FSYSj SYVSET ) » 

heat n FAT pri«nrSYS+ r TTMRS, SLASH .01 VSYM.HOnSYM.ANnSYM] )? 

wM ,le f TESTSYM T f'Set f C*TM ES, St 4 ASH, hfvSYM, MODS YW,ANDRYMl ) ) 
io 

treat n get sym* r actor (esys+ctthes, slash, ni vsym,modsym, 

ANDSYM] ) 

e n 1 
end? 


I 7. 


procedure ST MEXPfFRYS? SYMSET) ? 

Ihs ^ n J ?! 

'if (TRSTSYMIMSetf CPI.US.MTNUS] )) then GETSYM t 
TRRYf FSYS+rPT, US, MINUS, OftSYMl ) ? 
white f TFSTSYMIMSetf IPLUS.MT&US .ORSYMl) ) do 
benin G E T S Y M j TEKM (FSYS+ T PM’S , M T NUS , DR 5 YM] ) 
end 
end ? 


Procedure EXPRESSION; 

henin STMEXPCESYS+ rEOSYM,NF$YM,r 4 TSYd,TjESYM, GTSYH ,GESYW,TWSY M 1 
1 ? 

if c TES rSYMINSet f r EOS YU ,MESYM,tjTSYM,LESYH,GTSYM,GESYM, 

TNSYH] ) ) then 

he jin GETS YM ; 

ST«EXP(ESYS) 

end 

end? 


procedure nusHfvar STNoru*; 5 PROCPTRjvar STK t STACK ; var PTR ; 

integer) ? 

henln 

PTP : a PTR + 1 ; 

If PTR > STMAX „ 

then ERROR ( 300 )_ 
else STK TPTRT ja STMODE 
end 1 




■oc fa 'H , * r r ° ri D ( v ** x ST^nnr 

! nt eier ) s 

hen 1 n 

'if -vr.? r i 


PRn C OTR;var 


STACK 


f ^ on fi?:$RnP( ^Oi 3 
else 

oPiin "T .<nn^ * = STKfPTRl ; ptr ;s ptp - i 


end ? 


function s r a i ; k f":’*PTY ( ptr . integer 1 
he Tin 

.1 * PTp s 0 thpn STACKpsipTY 
pi^ S’” aC'cfmpty *= f 0 iR»' 
end; 


i boolean; 
true 


procedure km 'incoMPS; 
ver 

CO M PSTK ! STACK* 

CPTP , f ; i n t e n p r ? 

function •'T'vf !,,M • inteoer ) ; inteoer; 

r> P # 1 f H 

f T J, < '! then »* I : J •= T, 
else '’Vi ! - '! 

pnj; 


procedure ENTERCOdPf var LPROC, LLPR.DP ; PPnCPTR ) i 

CDWP : TjISTOFPPOC; 
oeqin 

rn«p ) . 

CDMP *, proc : = LLpnnr* 

cn«p MPXT ;s TjPRPC *. STRHNrjrowpf 

LPRDC * , STRGNCCO^P ;s COUP 

e n 1 ; 


ornceinre strong? var LPROC ; prdcPTR )t 

var 

LLPROC ; PROCPTR; 

LLP ; f.iSTfiPPPncj 
FLAP ; boolean; 
be iin 

I ? ~ i + i • 

f>Rnr"\ HnrsEMO X; 

LP« n C *, RNCLBLKNO ta 1} 

P”5”C LPROC • COMPSTK , CPTR 1; 

LRR n C ", OtfCRTUCK true; 

LLP js LPROC * » CALLS; 

^ b i i e LLP * nil do 
tea in 

T.r.PRHC != I.LP *. PR DC? 
if lil. PROC % NODENO = n then 
be oin strong? lt.prdc ); 

LPROC *. ENCLBLKNO ;= MTN( LPROC*. ENCLBLKMO, 

LLPRoC* .EWCLRLKNo ) 

end 

else 

if LLPROC*.NODENQ < L°R0C* , NObENO then 
If LLPRDC-.nucSTACK then 

LPROC* , FNCLBLKND is LPROC* , ENCL8LFNP , 

TjT.Ppnc* . MODEM D ) t 

LLP ?= LLP *, NEXT 

end ? 

if LPROC* , ENCLBTjK NO = LPROC* • MODENQ then 
henin 

PDPf LLPR0C , CDMPSTK , CPTR ) ! 

LLPROC *, ONCSTACK ;« false? 

FLAG js LLPROC *, NODEMO >* LPRDC ", NODE VO ? 
wpi l e FLAG do 

b6 n 

ENTFRCOWPf LPROC, LLPROC >? 
if STACKEMPTY ( CPTR ) 
then FLAG :* false 
el se 


pnr>( m PR'ir,rnf'p.sTK,rpTR ■> • 

um,nr « n^rsTftCK *= falsh 

! . r M > *LPROC * , NQDENO >= T..PRPC A . 

f«* fi f* 

f rr nr ’ in < T -' p »nc A . NOOend then 

Entin rtJRHC DDPROC,COMpSTK,C$TR ) i 
l> t i p r n c % oncktack := true' 


WODEN a 


fsfOCe i’l rr* T R A VFRSF.TRee? 

nentn ij 

xV|i e hnmK 1 nil rfn ii 

-D 7tn PUSH fl, NODE , PS TACK , STPTR ) } ONODE Sr ONODE », j 

T.F.TNK " ;i 

r> n d ; ' *! 

xMIp not ST ACKEWPTYf STPTR) do 

h i» n 1 n i 

POP ( 0‘jnnE , PSTftCK , STPTR ) ; 

If Li w onE % TSPROC then J 

\ ■ e g 1 n ;! ( 

If ONODE *, NODEMO s 0 then STRONG ( ONODE ) J i: 

if ONODE % DECLPROC # nl) then PHSHCONODE, DPSTK , 

DPPTR) 

enis 

t f!0 HE :s ONODE % RiiTNK ; f, 

w h 1 1 e ONODE f nil do ' 

iie-On POSH ( ONODE , PSTACK » STPTR ) t ONODE 5= ONODE *, 

LOTNK 

P n i , ?: 

p n d | 

e n *1 : j 

hen 1 n % ET'inrnMPs S 

STPTR ! c Of DPPTR t s (if CPTR := 0? I := 0 ,* 

ONODE := DTSPOAYE 0 1, PROCS t 

STRJM r; f !, HIDE )? jj 

5 ° ° f! r f r j n e *= ONODE *, DECOPROC? I 

TR AVERSETRee? 

exit if STAOKEMpTYC DPPTR )? • 1 

POPf OMO0F, DPSTK, DPPTR ) ( 

end 

end; 1 


procedure > ritrppjeo; 
procedure wrttepTRFE! 


procedure WRTTEWODE; 
v*r 

COUNT j Inteoer; 

Pen In 

If ( t,nODE ", CALLS = 

then 
heq 1 n 

■rfP ITEON t 

VRTTEtiNCOMODE *, 

) 

end 


nil 5 end (ONODE *. CAOLEOOY = 
nil ) 

NAME,' Is not called in this program,' 


else 

begin 

WRTTEI.N? ^ . 

WRTTGLNC ONODE ''.NAME 5? _ 

if ONODE % STRONGCOMP # nil then 

be wRlTE0N£' Tt is the root Of a strongly connected coTponen 

wrtteonc ’ which consists of the following procedure(s) 



.1 ? 


STROMOCOMP # nil do 
STROMGCOM.P 


ft - 14 
•, PR OC ». 


while lnode 

Pori In 

WTKf' '^LNOOF 
M ft ME ); 

I,W E?XT»* STR0NGf?0M P S* L40DE *, STRONGCHMP * 
fnijMT ;= COUNT + 1 . 

tf Court > 5 then 

beoln WRTTFLN; COUNT t~ i 

end 
end ; 

'4R TT^LN 

pr^fi f 

It T -on f », calls « nil 

t hen 
Heal n 

prttplnc' it calls the following procedures i 
court := i • 

while LNODE A . CALLS # nil d n 

neat n 

W R I T E f # * , LNODE • , 

1 1 

LNODE *, CALLS is LNODE 
COUNT •= COUNT + 1; 

If COUNT > 5 then 
hentn WRTTELW; COUNT *s \ 
end 
end ? 
writeln 

end • 

if LNODE % CALLEORY # nil 
Then 
bealn 

^ R T T F f , n ( ' ^ rt Is called by the follow, tna procedures 

COUNT is 1 • 

while LNODE \ CALLEDBY # nil do 

bealn 

wrttec ' 


* CALLS A , PROC 
CALLS *, 


A , NAME 
NEXT; 


, LNODE A . CALLEDRY *. PROC 
CALLEDBY IS LNQOE *, CALLEOBY 


NAME ); 

.LEDBY 


LNODE 
M I? XT! 

COUNT ;c COUNT + 1? 

If COUNT > 5 then 
bealn WRITELN; COUNT : = 1 
end 


end i 

WRTTELN 

end 

end 
end ; 

bealn (* wrtteptree *1 

While LNOOE # nil do 

ben 1 n PUSH (LNODE , PSTACK ,STPTR ) t LNODE la LNODE % 

1LTMK 

w b 1 3 i nor RTftCKEMPTY(STPTR) do 

e P0P C LNODE, PSTACK. STPTR 5 ; 

If LNODF * TSPROC then 
bealn WRITEN0DE> 

If LNODE *, OFCLPROC # nil then PU$H(LNODE,DPSTK, 

DPPTR) 

r.NDDF l= LNODE % RLIMKf 
while LNODE # Dll do 

bealn PUSHfLNODE, PSTACK, STPTR) ; LNODE ;= LNODE A . 

lltnk 
end 


e 

end » 


nd 



■TrFPjMFO *) 


r<ru tj _ ... 

p * ■; f * A - 13 

MKT H-l,' • 

'• R T » «• 1, . f ' ^ ^ (iT5>T HP PROCEDURES AMD FUNCTIONS TN THE PROGRAM 

WR T m,/ ! c ' 

r )7 

ST fT ' nV' • i r>t nppTP^’.-^o* nest * na calls Information' ) ? 

tv one := hi, set, AY T n“l. proCSi 

•i ■.;■ t r«’”Tt> FF; " “ * 

while -'of STACKEMpTYf DPPTR) do 

'i 

p f ]Pf!,F HHR f OPSTK * HPPTR ) t 

*1 n t T F F . M i 

— ^AMF)s Wlncr r ’ roc '‘ dnres ^re declared in ' , Lmode'' 

m i r n t if'* '«•««< 
i ? 

13’Onf. • = U3nr *, DFCLPROCj 

ti p T T E P T p F f 

end 
end ? 

procedure Statffent(FSYS:SYMSET ) } 

forward,* 

DrorMurn S T A T f , T S t ( p g Y s : S Y V R E 1 T } f 
hen 1 n 

ST A rriFMrfF.SYS+rSEMrrOLON) ■> ? 

If PFRTSY i(.?B , HTCni,n»J) then 

on Jin GFTSY^I 
S *' A Tf, T ST ( Ffi YS ) 
end ? 

T F S P f F R Y S , r 1 ,f>00) 
end * 


procedure t frt at ( frys * SYMSET ) t 

heal n FXPRFSSinN (FSYS* f THENSYM1 ) ? 
CHFCKSYMf THFNSYM.14)! 
STATF1FMT(FSYS+ [EliSESYM] ) : 

If rFSTRYMfFl.SFRYM) then 
beqfn GPTSYM* STATEMENT ( ESYS 5 
end . 

end t 


procedure you ESTATf FSYSsSYMSFT) j 
heat n F X P P F SS 1 0 F ( FS Y S + rmiSYMl ) t 
CHECK, SYhf DflRYM , JR); 
STATFMFMTf FSYSJ 
end f 


procedure RFPE ATST AT (FSYSS SYMSET) ? 
heal n ST ATT. I ST C FSYS+ rUNTTf.SYMl 1 j 
CHFrKSYMfiJNTILSYM, 16); 
FXPRFSSlHMfFRYSl 
end ; 


procedure DTHFrst AT tFSYS: SYMSET 1 ; 
brain SFT,F r fmUFSYS+r ASSIGN] )? 
if rrsT$YMf ASST( ■ ) then . „ 
heal n GETRYMj FXPRESSTON(ESYS) 
en i 
else 
beat n 

E M PFRCAMjf 

If TESTSYMCl.pAREN) then 
beat n GETSYMi 

EXPDTST CFSYS+ fRPAREN] ) t 

checksymcrparen,17) 

end 

en 1 
end; 


pr or** lur p r " ’i 
boo in 


S Y fi 


ST -IS 


) y 


nr 


i _■ r i .• v . *• i i f T 0 r ? T & 0 *f ) 0 

C^rrKSV'f nsrim, v >2 ). 

^ c » l f V f P^YS 4* f Tn«! Y Vi fVjsl'if OS YM 1 1 * 

1 € r, "' v ''f'rl'lS*;** r rii.SYM # r» 0 WArr.jRYMi \ K 


f ioo r : r t <a$ V 

p\^t% ; r m * i > ( 


f* |„ S H '" 4 *»'!!<’! n 1 ! 4 ) # 

ry n »''r,r' ?r fsys + rrosYvi ^ , 

r.-.jp-r^v r-ri.svi.ftrti) , ' 

V a vh \ 


S T 
pn-1 i 


pc,yf, 1 


. r ru ;; ?,\t ( >?sys . 1 : 


p r n c e d u r : 

nf>i 1 o 
rns s t; 

i f rr^TrtY’.i ( ciM-A ) thou retry* j 

-M;y V l( mh n,ms ) ; 

sFr.«TTu->( fsys + rro*»A , uosym] ) 

'inf 1 1 S Y * 0 ■' ') M M A • 

f"|""»'5V < f nn t; y ** e d a ■). 

STATF-p p f FSy(; } 

end ; 


Drnr n '!'iro p’ui'qvsTf f ,S v S • s Y M S F <" 1 ■ 
heiln r.-YPHFs^in:;( fsys + rnFSYMi')* 

If •u'i; T« ?TSYMf HFRYM 1 then RPRDRC 607 1 
» l s e 
r p n e * f 

>’i 5Y*’r 

if TKnrsriC UTMFRSYM 1 then RETSYM 
else CONSTANT?, istf FSYS + I - COLON 1 1 r 
7MP ^K«5YM( Cn?,no,fiO« ) j ' " ■ 

Sr«FC‘*Erir( FSYS + r R N DS Y M , s E M T cn LH M 1 ) 
unt \ 1 sym * semicolon; 

If' T’R'STKYMf Fi'JDRYm 1 

then Gktsym 

else r F 5 T f ri , FRYS ,609 ) 
end ; 

procedure rotostatc fays s symset )t 

hecjln 

1. f rFSTSYMf INTNHM ) 
then CETSYM 
Pise FRRORf 610 1 
pod t 

procedure LAREUSTATC fsys i SYMSET ); 
heal n 

CHFCFSYmC COLON, 611 )f 
ST A PFM^NTC FSYS 1 
end ? 

procedfirr? LOOPSTATf FSYS j SYMSET ) f 
heoln 

STA ffiTSTf FRYS + r EXTTSYM] )? 

CHc-CFSYMf EX TTSYM , 617 ) ; 

CHFCFSYMf TFSYM.611 ); 

FXPRFSSTOMf FSYS + C SEMICOLON , ENDS Y Ml ) ! 

If rFSTSYMf SEMICOLON 1 then 
hen 1 n GFTSYMy STATLTSTf FSYS + CENDSYM] ) 
eody 

CHFCFSYMC ENr>SYM,6lS ) 
end I 

procedure statement t 
bent n 

TESTfESYS+CTOEMTI, FSYS, 109)? „ ^ 

If rFSTSY.MINSet (STATREGSYM+CT0ENT3 ) then 


be d In 


fc tksTSYM(BEGINSYM 1 then „ , , 

beam CETSYMJ STATLISTfFSYSt tEMnSYM] ) ? 

CNFCKSYM C ENOS YM , 18 ) 
end 


f (•«■•!? rSYHf IFSVM) t^n 

GETSYM J IFSTATCFSyS) 

i | «; f\ 

i ' rESTSYM(WHTLESYM) then 
Hnnin GETSYM* MHTLFSf AT(P«5YR1 

n p d 
-> 1 ;; ,•> 

if TFSTSYM(RFPEATSYM) then 
Onqin GETSYM; REPEATSTATCFSYS) 

enn 

else 

if TESTSYM(TDFMT) then 
beam getsvm? 

OTHER ST AT ( FSYS ) 
end 
el se 

case SYM nf 

loopsym : 

beq in GETSYM ? LOOPSTATC FSYS ) 
end ? 

WITH5YM 3 

beotn GETSYM? wiTHSTATC FSYS ) 
end? 

CASESYM : 

bealn GETSYM? CASESTATC FSYS ) 
end; 

FfJRSYM ; 

beain GETSYM? FORSTATf FSYS ) 
end; 

GOTOSYM ; 

beain GETSYM? GOTOSTATf FSYS ) 
end? 

TMTHUM ! 

beain GETSYM? LARELSTAT( FSYS 1 
end 


end 

end t 


procedure PAR AMETIDFntlSt (FSYS? SYMSET) ; 
beain T F 3 f ( C T D F u T ] .FSYS, 121 )? 
if TFStSY 1 C TORHT I then 
beain EMTERVAR? GETSYM? 
vh 1 1 e TFSTSYMfCnM«A) do 
beain GETSYM? 

If TFSTSYMf IDENT) then 
beain ENTER V AR f GETSYM 
en d 

else ERROR ( 42 ) 
end 
end t 

TEST? FSYS, T1 ,122) 
end ? 

procedure t, T STOFPAR Anets (FSYS t SYMSET) ? 
beain 

if f T ESTSYMTNSet ( [VARSYM , TDENT1 ) ) then 

1 i f ' ^ T E S rSYM(VARSYH) then 
h f* cj 1 n Cf FI T R V % i 

PAR A W ET IDEnt.lst (FSYS+ [COLON , IDENT1 ) ? 

CHFCKSYM( COLON, 52) f 
C HECK SYMCt DENT, 53) 
end 
el se 

be pARAMETlDEntlSt(FSYS+tCOLON, IDENT))? 

CHECKSYM (COLON , 54 ) * 

C HFCK SYM ( IDENT , 55) 


10 

to 
jO 
(0 
'0 
1(1 
10 
10 
,0 
'0 
10 
■ 0 
10 
,0 
0 
0 
0 
0 
0 
0 
O 
0 
0 
0 
O' 
0 . 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
3 
3 
3 
3 
3 
) 

3 

3 


ts 


«©> ^ 


?, I S rnrPARAmpt S fF5?YS+ CVARSY M ( ,I0F'MT1 1 


pn 1 
pnr’; 


procedure P " k 0 'F 1’ K p T * 1 st ( FSYS J SYNRFt 3 * 

hen i n ' ' 

tf T 1 *>* s T s Y M ( T.i P A P F M 3 then 

nr> pn nr rs { w • 

nrs 17- 'r’AWAnietsfP’SYS+fRpARFiiJl n » 
C»RrKSY«*(RPARP;N f 5fi) 3 

rni 

pnn * 


dtocp 

hP 


? e * i ) r e p o n r h r a n p: r c r s y s « s y m s K T 3 ! 

ip* .' ii o "in-’^KnvMf i pent , st 3 : 

PftF V'f'r;.;P|p S f f PSYS 5 


p n d ? 

procedure p "' ' r, »K Anpp f FRYS J SYMSFT3 • 
ben.tn r -IP'SKSY H inEFT.SR) ; 

P A P A i r T c R L 1 s t f FR Y S -t f COLON , I DE N T ] 3 f 
0 h e c v s Y * ( rnrjii'i , 503 s 
C H F C F d Y M f rns^MT-fiO) • 

TP'S f f P’ R Y R , n , if (3 3 
end y 

procedure hlock (FRYS: SYMRET) 1 
forward r 

procedure PMMIRPRncnecl CFSYSsRYMSFT) ? 
henl n 

TFSTf P'S VS, ri , 1 1 9 3 t 

if^Tjsrcrqwsptf rPRocsYM , funcsymi > 3 tnen 

If TP'S TRY M ( PR OCR Y M 3 then 
Kpa i n GETSYMy 

c iterprocj 

PRflCHF^nFRf FSYS+rSFMICOLONI 3 
end 

gl 1 % ^ 

Herjin OETSYMJ 

FUNCHEADERCESYS+ [SEMICOLON] } 

n ^ s 

CHECKSYMCREMrCOLQN.393 l 

If TP:srSY'«TM.SPtC CEXTf;r»irym,FQR^ARDSYM 3 3 then 
banjo Tf3P:»Tnp-l|(3RTSYM 
end 

m so block cesys+ [semicolon! ) ? 

CHFJCKRYMf SEMICOLON, *50 3 ? 

F'nnnPRPirnecl CFSYS+rFHNrSYM, PROCSYM1 3 
end 
end ; 

procedure T^ITPROCRC ERYS t SYMSET 3? 
bent n 

while TERfSYMf IMTTPROCSYffl ) do 

op ' f In 

,FTS Y Yf 

CRFCKSYMC SEMICOLON ,900 )f 
CHPTKRYM C BEC5TNSYM ,901 ) t 
r enfMt 

S¥5S5S?Hc , ?IB'J # ? S ii«aLB.,«m.T., >. 

tf rFSTSYMC SEMICOLON 3 then GETSYM 
until 5YY # IDENTf 
CHECKSYMC EW[)RYM,003 3 1 
CHECKS YM ( SEMICOLON, 904 3 
end 
end » 


nrocednr ^ '<• 1 >'- < r * 

ho a 1 n 

rear* It 

ir t.-v-tc, / 4f ohmstsYM) then 

" i ; r *. y ■ ? CbiSTDEcbcFSYS) 

If 7 '?'«• r’;yn t rYPFSYM) then 
heain 0 E r 0 Y M ; TYPEnFCL(FSYS) 

ft '('**1 ^ * 

If T*. ”, (\SVM( tfARSYM) fh(an 
heath ^'T';Yi ; VARr>FCTj(F*SYSl 

» n i ; 


L f T * s r n y m ( iHTPRncsYn ) then 
7 irronn CS( fsys ) ,* 

If tp", rsye tNSet ( rPROfSYM.FUNCSYMl } then 

■CBEfilNSYHi)* 


»in 1 1 
r sw": 


r.m iMPfxicoeci f F8YS + tBESlHSi K3 } j 1 Ln "" 

S f r •**' .T !S / w 1 , O^'CTiRROS YM + STS TRFOSYM 60^) 

1! .. ;C ! 1 F r S v ' T \r V S e t J S T A T fi F G s Y Y ) , ' ,a * 

SYS + 'f F,n 6.SYM j 7 ; 

. DECLPR 0 C ! b nTSPFjAY rTHPl .PRDCS; 

120 ) 


s r a r? is it f 
ri jP«p, SY .«f frjnsY^, 4J ) 

O T S n ! , A Y r -r IP 1 # OH RP FI t 
T ip ; = l op - i « 

TF.srr rsKMirm.o j, periodi ,fsys, 

i»rH 7 


prnce-’ ire FT 1,n., r ST ( PSYS t RYMRFT) i 
hen 1 n rF,ST( f 1 nr m ,FSYS,12t) ? 
If rFSTsY If TPRMT) then 
he -j i n r,Frs/*; 

■iMIp fESTRYfif COMMA) fin 
heath OETRY M ? 


tf t f s T s Y v ( r n F m t t then GSTSYM 

else ERROR C 42) 

®nd 
end ? 


Tpsrrrsvs, n , 1221 
eni ? 


procedure PROCRAMHEAdf FRYSlSYMSFT) ; 
heat n 

T E S T ( rPphGSYMJ ,FSYS ,121)? 
tf rFSTSYMf PROGSYM) then 
beat n GFTSYM; 

tf TFSTSYM(TDENT) then 
heain r.ETSYM* 

tf TFSTSYMCt.PAREN) then 
heain fJFTSYM ? 

FTtiFtiTST ( FSYS+ CRPARFN) ) f 
if TFSTSYM(RPAREN) then 
heain GETSYM; 

if TFSTSYMfSFMT COLON) then GETSYM 

else ERROR ( 4 1 ) 
end 

else ERROR ( 46 ) 

eni 

else FRRORf 45) 
end 

else ERROR (44) 
eni; 

TKRTf FRYS, ri , 1 24) 
end ; 


heain 

f* TMT fl AT.TZATTOMS 
WOROt tig =' AND 


*) 


WOROC 

wnRnr 

WORD f 

'••nnar 

wnRnr 


♦s' APR AY 

:='prgtn 

s«'case 


hi *s 'CONST 
hi rs'oxv 


.•‘n«nf * ^ js-'tt.sf ' 

.tn»o j 1 m : ~'F “O ' 

,;ncnfni:s'MfT ' 

i.'* 1 R Him ; sr * x ■»')• p*( ' 

n 1,1 ; = '(•'! !,K ' 

; f; or?o n n * = " r ■ i ;? ' 

i« op r * f 1 S 1 : ~ * F to 'v IPO ' 

jft qpo f 1 nl : = ' T ’ 1 ITT T nu ' 

i.,np'> f « ?! > r * ' 

, ; pw;' r i -'i * = ' t k ' 

i npnr i 'ii ; = ' t ^ f 

/nror ?m : = '■» », t r m< <irFn' 
, m;n r :> i i »- 0 \ inn * 

t, nf?n f "> 7 1 ; a ' m nr * 

Ifinpn f v ?! is'ffif * 

l-;'ipnr' v 4 l ;r'nf.' ' 

kjm-nP'ji ! = 'o« 

T( npnr7hi js'ni’HPPS ' 

Rfipn r?7i is'Ff.rKFn ' 

wnw np O : = 'Ppnrt-’rv>'?F ' 

rs'PR'oqpA*' # 

k p r n rim ; = '»FrnHo ' 

• r HP PC'* i i js'PFPFftT ' 

WPRnn?! ss'RFT ' 

wopnn 51 Jtr'T IFfJ ' 

wnpnr U1 ts'Tn ' 

wnRnr 5 51 ; = # 

wnRnr itsi * 

wnRnr 'Ul js'vap ' 

WfiFM 5 41 :s'WHT!,F ' 

worth 5 m ;s # h't t h # 



WSY*H 1 1 rsMJHSYM; 

WSYM r 21 jaARPAYSYMj 
WRY**? < 1 ! allFRI NR YM j 
WSY" r M jsCASFSYm; 
wsym r si jssthms rsYM* 
WRY*’ f M S » 0 T V 3 Y M jt 

wry*' f 71 jsnnsvM t 

WSYM t !1 1 !=rFP vHTORYM • 

WSY M r 'll ! ssKTjSFRY M y 
wsym f 1 ni jBFMnsYM: 

WSYM r 1 1,1 :=FYT FRYMj 
WSYM Cl 21 j aFIX TFRNSYM > 
WSY M r 1 11 JsFTLFSYMy 
WRY Mft 41 : «FORSY M J 
WSY w 1 1 51 ; bFDHW ARDRYMf 
WSYM c 1 hi s sFUMTSYM I 

WSYM T 1 71 safinTn.RYM J! 

wsy** rim sa r fry m 

WSYM f 1 m jaU'SYM? 

WSYM c ?m :»TNTTpRnrSYmc 

wsymF?i i :=!,n jpsym t 
WSYM r 77 ) ;sMnosY M ; 

WSYM t 7 51 ta» nrSYMy 
WSYM r 741 saOFSYM J 
WSYM f 251 jaHRSYM? 

WSY M f 2 ft I jsHTMFRSYMj 
W S Y M C 7 7 1 saPACKFnSYMy 

wsy m c ?m jsppnrsYMr 

WSYMC 2 P 1 jaPROrtSYM j 
WSYM r 5 0 1 jaRFCnpnSYMt 
WSY'’ r HI l sHFPFftTSYM f 
WSY M ( 121 JssSFTSYM? 

WSY** f 531 ;s rHENSYM* 
WSYMf 541 ;srr»SYMj 
WSYMH 51 ; *TY PFRY M f 
WSYM i : 561 ; al)M r TT,SYM ; 
WSYM f 171 tsVARSYM? 

WSYM rim SsWHTLESYM? 
WSYM r 391 S aWT THSY M J 


SSY> 
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■fr 
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ssv* 
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# 1 
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SSY 1 
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0k 
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; ]f f\* T \* o | 

S S Y 1 

-f ' 
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»* 

f! 
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»3 

S S Y ,J 
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: =M>ARFM . 

$SY** l # 

) 

# 1 

! rRRA RF ' ? 

SSY 1 

, f * 
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I = ? P P ATKFTr 

S S Y ' 
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i 

0 f 
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* nldtU ACKFT ; 

SSY*' f ' 

# 

' 1 

» ~rr ;»’ m a • 

SSY ' v 
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# 
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; T.ni <■ 1 rpT,f !'■' 

ssr 
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ft 
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• = * i p s y • » 

STD PR r 


1 I 

: s ' f * A T NRO 

STD PR r 


•' 1 

! = 'RFAO 

STL PR r 
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:= ' P F A n I, *’ 


, .jf'R r 
store r 
stopp r 
STpRR r 
pTppi-.' r 
stop k r 
strrp r i o) 

RTDP» Ft 1 1 

sthpp n ?) 

stpfr r t s i 
stopr r i 1 1 


t.i 

m 

f* i 
7 ] 
P 1 
q j 


Tf 1 * P. 

' ‘IP 1 TKtiM 

'GK7 

'PUT 

'RESET 

'RP »’ R T T F 

'fiF'x 

'PACK 

'UNPACK 

'BREAK 


; 
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CH: = ' ' ? l’Ciso j 

nfwvars := false? 


M-t = 0 ? 


P^PWA5 i 12YM 5 Fi?gS§;?M^ VARS¥H - TYPESYM ' PRnCSYM ' F ‘ ,mCSyM '' 

?^Jg^^l?X;!^45E^{S?S,%^^S3^?SfV BS ^' RepeATSYM ' r0RSYM ^ TTHSYM 

fSpArKrn ; srr,PA ^ M » NnT ^ H » intnum,realmum,iqent, string, 

enNJST Ri?f:SY*n: = r pr, U $, M JNUS. I NTNHM. realms, STRXKG.XDENT] t 
STHPrVBFrJ'tyt'Is r.STPT NG, IPAPFN.Pr/lS, MINUS, TP&WT, f NTNUM, REALNUM 1 
SFLFCT SYS j s f PO T WTFR , PrR IQP ,LBR ACKETl ? 

rYPEBE-SY« S=[ PLUS, MINUS, INTNUM, REA LNUM,STRIWfl,inENT # LPAREN, 

POINTER 

. PACK E'JSYM ARRAYS YM,RECnRnSYM, SETS YM,FILESYMl ? 

TYPnE^Ll = rRECnRnSYM,ARRAYSYM,SETSYM) ? 


GFTSYMj 


TOP • r 0? 

ENTERS TOPRors? 

TOP jts 1? 

DISPLAY r TOP 1 , PRC 1 CS !* nil I 

BLOCK r fopRinn ] +st atbegsym + declbegsym ) ? 

CHECK SY M (Pfc; RIO D-Afl) ? 

If FRRcmiMTon then 
bno 1 n 

WRTTFf.N ? WRITKLN f 
WRT t’FLN f OUTPUT, ERRCOUNT.EMES) ? 
t'RT TFLN f TTY , FRACOUNT , FMFS) 
end 

* henl n WRITELN (OUTPUT, NOERRMESS) J 
WRTTFUiN (TTY,NOFRRMESS) 
end t 

FTNOCWS* 

.v P 1 TF|P l ' , F n 
end , 




apPFWPTX R 
FTKhb RESULT 

*’>'•» S 4 r nm l v ' , nnn«c<'ni Components of 
ton ron Crape , ana the Called hy 
oni static t'osMno Information, 
f op t hr on sr FT, r; n m r 1 l e r « 



r tst n-' opneouREn fuuct t dns in the program 

with static nesting and calls Information 


RRFAK 


It Is the root nt o strongly connected component , 
wM ~n consists of. t ho following Procedure ( s ) : 

H P f\ h K 

It. Is Mi' a t tv the following procedures : 

V* T'-ihPO". R F A 0 F T f i F T 0 ENDQFti t Mg 


It Is the rout of a stronolv connected comnonent , 
f^Mcj oonsl sts Of the following Procedure fs 1 : 

GET 

Tt fs called by the following procedures ; 

m r: x t C H 

m A T d n n n y . 

Tt Is the root of a stronnlv connected component, 
wmch consists of toe following Pr ocedure C s ) ; 

MATMBHDY, 

Tt rails toe following procedures ; 

WRITE ENDOFLTNE BLOCK T NS YMBOL 

BREAK WRITE!., U REWRITE READEILEID 

EMTERUNDEr ENTERSTDNA ENTERSTDTY 


GETNEXTLTM 

EMTERDEBNA 


It Is the rooh of a strongly connected component , 
which consists of the following ProcedureCs) ; 

MEW 

It Is cn 1 1 e 1 Hv the following procedures j 
EMTERPERNA EUTERITNDEC ENTERS IONA ENTERSTDTY 

CASCStATEM CE T N FWGT.ns FACTOR GFT 3 TRTNGA 

PRO^EPIPFO P AP A M ETERL VARIARLEDE TYPEHECIjAR 

L A B p 1 1 n F C h A TYP FIELD LIST RECSECTIOtt 

COMP TYPES COMSTAWT INSYMBQL FRRORWITHT 


PACK 


is not called In this nroqram, 


PACE 

It is the root of a stronnlv connected component, 
which consists of the following orocedureCs) : 
PAOF 

It Is called hv the following procedures : 

GETMFXi'LPl 


BODY 
DEPCST 
CO?IST ANTDE 
STMPIiETYPE 


It is the root, of a stronolv connected component, 
woich consists of the following nrocedureCsl ; 

PUT 

Tt is called hv the following procedures : 

PUTRELCODE 

R F h D 

It is the root of a strongly connected component, 
which roos.i sts of the following orocedureCs) ; 

READ 

It is celled hv the following procedures r 

NFXTCH 

REA BLN . , 

Tt. is the root of a stronalv connected component, 
which consists of the following orocedureCs) : 

RFADLM 

It Is celled hv the following procedures : 

READFTLFTD ENDDFLTNE GETNEXTMN 


RESET 


It is the roof of a stronolv connected component , 
which consists of the following orocedureCs) : 

RESET 

It Is celled hy the following procedures ; 

readftleid 


r? /. 
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REWRITE 


1 t If’, iHV;^ °f a stronalv connected comnonent , 
r nn rs 1 st s of the following orocedureCs) : 

•l!\ jn^nny' 1 1 f ' H by f - h ^ following procedures : 


UNPACK 


a* i 

Tf F,2 r ' ,t of - a stronalv connected component, 

fpTpACK ‘ 5 ists of the following Drocedure(s) s 

Mcrriru^ 1 ' 1 1 ° * by thp following procedures ; 


WRTTEr.M 

Tt tF f '„F2 °t n f a stronalv connected comoonent , 
MPjTPr.N^ c 0 n s 1 s t; «; of the following procedure (s ) : 

J,t i vnn^w 1 le ' 1 Hv tho fon owina procedures : 

PRAHPXr.FTD WR1TRWC WRTTEHEAPE 

NSUFZEIJ.F TMSYMROL FWOOF&INF 

WRIT ui ” U c r K. 


WRTTF 


It Is the root of a stronalv connected comnonent, 
,.r >T 2 L l tch ronKl. sts of the following oroeeduro(s ) • 

W R I !: ti* 


J,t TMonSS 1 1 fV - 1 Kv t hf? fallowing procedures 
M , A J*5J2X'-, REAPFTT.EIO MCCODE WRITE HE A PE 

(Sethextt't u w HITEWPRP SHOWRELOCA NE'IEZEXLE 

Eol 1 owina or oc 


■ocedures are declared- in mainbody, 

HW ?$$!$ HW WW $!& SflUl IBd f MW| t&SD iS&Sf yaffil K 


n^nc* 

Tt is the root of a stronalv connected component, 
which consists of the following orocedure(s) ; 
RTjHCK procedure!) 

If calls the foil owina procedures ; 

RKIPlEgPR ERRORWITHT PROCEDHRED BODY 

ERROR VARIABLEOE TYPEDECLAR CONSTANTDS 

iMSYYPnr, 

It is called hy the following procedures : 
MAIM300Y, PROCEDURE!! 

ENDnFLIME 

It is the root of a strongly connected component, 
which consists of the following orocedureCs) : 

ENDOFL.TME 

It calls the following procedures : 

GETMEXTTiTM REACH, M BREAK WRITE 

It Is called hv the following procedures ? 
MAIWBODY, TMSYMBOT, OPTIONS 


ENTERDERNA 

It is the roof of a stronalv connected component, 
which consists of the following orocedure(s) s 

ip m it 1 to* p iS ?r ci a i a 

It call's fh*» following procedures s 

ENTER TO NEW 

It is called hv the following procedures s 

MAIN BODY, 

EM TER IP 

Tt Is the root of a stronalv connected component, 
Wh 1 c h consists of the following procedure Cs) t 


ENTERED 

Tt calls the 
ERROR 

Tt is called 

EUTERDERMA 

typedecc.ar 


following procedures : 

hy the following procedures s 
EHTERSTDNA procepured PARAMETERS 

COWANTDE • FIELOLIST SIMPbETYPE 


WRITEFIRST 

GETWFXTMN 


WRITEFIRST 
FNDOEtil ME 


ERR ANPSK1P 
liABEDDECLA 


WRITELN 


I r ^strnnaly connected component 

r-MTFpir^ *. 1 fH of h<s lowtncj ProcedureCs ) 

J JT, r r p r i ^ t<>1P fpi low,no Procedures : 

II r rn^v' 1 P ' K< ’ t - ho f n1 Inwinn orocedures 


V? 

Ff is imp roar nf * strongly connected component, 
u'y° nfJtSt,? ° thP foUowinc ? ProcedureCs) : 

Tt r n 1 1 «? t K r following procedures * 

M fyj it 

It l r '. ,£*’ 1 r 1 h v the following procedures j 

jwi p J[ ®| H ‘lily ^ 

RNTRPU 

lf 1 £/ !? c ro '’ > t 2 f f1 stronolv connected component, 
r«^nM.^ T1!:!sts nf t l 'e following Procednre(s) : 

W n ! Ur ft T f J f > f 

t f njji ic toe following procedures ; 

NEW 

Tt is r *ei 1 ed hv t h e following procedures s 

n » j *j nnnv, 

PHRORWITHT 

Tt is the root of b strongly connected component, 
wP i ch consists of the following Procedure (s ) : 

jrpprif? w 1 TUT 

It re 1 Is toe following procedures s 

N E W ERROR 

Tt is called py the following procedures : 
block storeword macro fullword ■ 

TYPEOECLAR 


ERROR 

it is the root of 
which consists 
FPROR 

Tt- is called by t» 

BLOCK BODY 

FORST A TE ME W H T L 

COMPOH ,?hST GOTO 

STMRLFFXPR TERM 

PROTECTION F.OPE 

ODD TRHN 

RELEASE MARK 

wrttfwrttf read 

selector LOAD 

PARAMETER*. VAR I 

TYP FT EL 

SFARCHin EMTE 


a stronolv connected component, 
of the following Drocedure(s) : 


following procedures 


WHTLFSTATE 

GOTOSTATEM 

TERM 

eofeoln 

TRUNC 

MARK 

RE ADPEADLN 
LO ADADDRES 
V AP TARLEDF 
E T ELDL 1ST 
ENTER ID 


STATEMENT 

REPEATSTAT 

ASSIGNMENT 

FACTOR 

PREDSUCC 

SDR 

MEN 

GFTSTRINGA 

MACRO 

TYPEOECLAR 

stmpletype 

insymbol 


WITHSTATEM 

CASESTATEM 

storegloba 

CALL 

CHR 

ABS 

UNPACK 

VARIABLE 

TNCRFMENTR 

CONSTANTDE 

CONSTANT 

OPTIONS 


VARIABLEDE 


LOOPSTATEM 

TFSTATEMEN 

EXPRESSION 

CALLNDNSTA 

ORD 

GETLINEMR 

PACK 

GETFILEMAM 

PROCEDURED 

LA8FLDECLA 

SKIPIEFRR 

ERRORWTTHT 


GETROUMDS 

r t is the root of a strongly connected component , 
which consists of the following ProcedureCs) : 

GETROUNOS 

It is called by the following procedures : 

ASSIGNMENT NEW UNPACK PACK 

SELECTOR TYP COMPTYPE3 

GETNEXTLTN 

It Is the mot of a stronolv connected component, 
which rnnsists of the following ProcedureCs) s 

GETNEXTLIM 

Tt calls the following Procedures : , „ 

WRITE READ L M WRITELN PAGE 


WRITFWRITE 


NEWPAGER 


It is called hv the following procedures 

MAIN BODY, EfiDOFLlME 


■f MS Y’"UOi, 

T1 " ^str^naiy connected component, 

rn s1?ts ° f fh “ following Procedure (s ) ; 

T t r * l ' s t*>o f r»i lowing procedures s 

^’SV'-’ML n.-v ERROR WRT TPtjM 

DPT TO VS HEXTCH fSN'DOFT.INE - U 

!t Is cali' J,i oy t hp foil owlna procedures • 

'^T'rn^v, block body statement 

FOWR T ATF M F WHILESTATE REPEATST#"* 

roMPHUNDST 

T F P M 
!!• PACK 

gpT.STRTNGA 
PAR A^ETERL 
TYP 

t mrym r<nr, 


loops r \ r s : 
TEST A l’E 'Eh 
f; f ?<• p | . p c v p p 

*'FM 

gn-nn r p r b f 
p'jnrP'o invp 

L A p F f . o o r f , ? 
SKTP 1 FVPR 


WHILESTATE 

GnrnsTATEM 

FACTOR 

PACK 

VARIABLE 

variables 

FIELDLIST 


ASSIGNMENT 

CALL 

WRTTFWRITE 

GETFTLENAV 

typeHeclar 

SIMPlETYPE 


M f w p a C F R 

r t l *? , ,Kn root of a stronoly connected component , 
*'Mc h consists of the f oi lowing procedure(s) : 

m p w pacer ' 

if is called hy the following procedures s 

MCCnnF CFTNEXTLIN 

RKADFTLET') 

If is the root of n stronoly connected component , 
whin* rgnslsts of th* following orocedure(s) i 

UFA nf r r,n t n 

Tt cells t-he foiinwlno procedures : 

reset ream,?] break wrtte 

OPERAND 

Tt Is celled ov the following procedures ; 

MAP1B"0Y, 

SEARCH IP 

Tt is the root of a stronoly connected component, 
which consists of the following procedure(s) j 

sear eg in 

it calls toe following procedures : 

p p p n r 

Tt Is celled by the following procedures ; 

STATE' 1 RM T WX t HRTATFM FOftSTATEdE FACTOR 

GETTNTECER VARIABLE 6ETEILENAM PROCEDURE!) 

TYP FIELDLIST STMPLETYPE CONSTANT 

SEARCHSECT 

It Is the root of a stronolv connected component, 
which consists of the following procedure(s) : 

SEARCH SECT 

It Is celled hv the following procedures 5 

SELECTOR PROCEDHRED 

WR T TEmiFFF 

rt Is f he root of a strongly connected component, 
which consists of the following orocedureCs) : 

WRITER N FEE 

Tt calls the following procedures ; 

WRTTELM 

It is called by the following procedures : 

MCCDOF ^CGLOBALS TNSYM8QL 

Following orocedures are declared in READFTLEID 


OPERAND . ^ 

if. is the root of a strongly connected component, 
which consists of the following procedure^) s 

OPERAND 

Tt calls the following procedures: 

SETSTA FUS READCHAR READQCTAL MEXTCH 

It ts called by the following procedures * 

READFTLEID 


WRITEBWEFE 


WTTHJ5TATEM 

CARESTATF*' 

EXPRESSION 

CALLNONSTA 

READREADLN 

selector 

COMSTAFTDE 

CONST A M T 


WRTTELN 


CALLNONSTA 

parameterl 


Pol ,lo-+i *vi -'>r or a i nr«g declared tn opepa h D 

MFV red 

!f is th» root of a strongly connected component, 

,, p , x ^p, 1 I ch co*sist-s of- the following orocedureCs) ; 

Tt calls too f oi lowing nrocedureg : 
prnn 

Tt 1 s c^UM h v the foil owing nrocedures * 

n pkp a *i n 

i?b fl pen A i? 

it Is the root ot a strongly connected comoonent, 
rMch consists of the following Procedure!*) s 

pf'APC^Hp 

tt is celled by the followina procedures : 

fUH'C A ’’I 0 

RFftPnC T M, 

It is the root of a stronolv connected comoonent, 
which consists of the following procedure!®) : 

PFAnncr \r, 

rt is ceiled hy the foil owing Drocedures : 

nPEPA M n 

SFTSTATUS 

tt is the root of a stronolv connected component, 
which consists of the following procedure! s) s 

SKTSTAfUS 

It is ceiled by the following procedures : 

operand 

Follntf1.no nrocedures are declared tn TN SYMBOL 
NEXTCH 

Tt is the root of a stronolv connected component, 
which consists of the following Procedure ( s ) : 

NKXTCH 

it calls the followina procedures : 

OFT 

It Is celled bv the following procedures : 

T NS Yd fOT., OPTIONS 

OPTIONS 

Tt is the root of a strnnaly connected comoonent , 
which consists of the following Drocedure(s) : 

OPTIONS 

Tt calls the followina procedures : 

ElNDPFfj INH! FRROP NEXTCH 

tt is called by the following procedures : 

XMSYvnor, 


Following nrocedures are declared in BLOCK 


BODY 

Tt is the root of a stronolv connected component, 
which consists of the following Procedure Cs ) s 

BODY 

Tt calls the following Procedures : 

JMSERTAPDP LEA VERODY NEW ENTERBODY 

T MSY MROL STATEMENT WRITSJMC 

Tt is called bv the following procedures : 

BLOCK 


ERROR 


rrv 


u>?y 

t t 

p p m 

ft 
r; p* t 
I t 
pop 
f rrp 
M P W 

n f t 
FTE 


p p ^ 

f s t 
w h f c 

p t y p 

cal 1 

;VvVim 

1 s c 

g r i\ f 

m 

PflTp 

fPiF.iI 


k a font nf 
onri$*|«;ts 

p g 

C ¥ 

O r 1 

O l 1 0 
Jf P 


h ** 


p c p 

3 T 


a strono.lv connected component, 
of the following Procedure (s ) f 

following procedures : 

NEW CnwPTYPER 

t.ho f niiowl n u procedures • 
C^nSTATF 1 * ASSIGNMENT EXPRESSION 

FACTOR CALLNONStA GETLT NEMR 

UNPACK °ACK WRT FFWRITE 

Ct’TSTRTMCA GETPTI.BNAM SELECTOR 

STRING cnwPTYRES 


CO 


’START 

It is t' he root of 
"i M c h consists 

COWS TA '>! r 

if ca i 1 s toe 
TFERRSKTP 

MEW 

It is c a 1.1 » d 
CASESTA ''C! 

STMPLF TYPE 


a strong iv connected comonnent , 
of the following procedure(s) ; 

following Procedures : 

ERRAunSKTP ERROR RRARCHID 

SK TPTFCRR 

nv the following procedures : 


FACTOR 


MEW 


COMSTAMTDE 


CO M STAMTPE 

It is the root of 
which consists 
cows f A l T 0 E 
it cel 1 o th“ 
IFERRSKTP 
NEW 

It is called 
BLOCK 


a stroncrlv connected c omoonent » 
of the following orocedure(s) % 

following procedures t 
EMTgRin CONSTANT error 

ERR AN OSKI P SKIPIFERR 

by the following procedures : 


ERRANnSKTD 

r t is the root of 
which consists 

ERR A MO SK TP 
Tt cel Is the 
SKTPIERRR 
It is called 
BLOCK 

callnowsta 
typeofclar 


a strongly connected component, 
of the following orocedure(s) j 

following procedures s 

Sv the following procedures s 
STATEMENT LOOPSTATEM forstateme 

GETPUTRESE PROCEDURE!! PARAMETER!* 

CONSTANTDE fieldlist CONSTANT 


IFERRSKTP 

It is the root of 
which consists 
IFERRSKTP 
T t calls the 
SKTPIFERR 
Tt is called 
E ACT OR 
VARTABLEDF 
FT EL Of* f ST 


a' stronolv connected component , 
of the following procedure(s) ; 

following Procedures : 

by the following procedures s 
CALLNONSTA SELECTOR PROCEDURE!) 

TYPEDECLAR CONST AN TOE LABELDECLA 

S [MPLETYPE CONSTANT 


LABELDECLA 

Tt is the root of 
which consists 

LABELDECLA 

Tt calls the following 

IFERRSKTP NEW 


a stronalv connected component, 
of the following orocedureCs) ; 


procedures 
error 


t 


It. i s 
BLOCK 


caned hy the following procedures 


TNSYMftOL 


PROCFOURED 

It calls the 
SKJ.PIP'ERR 

parameterl 

SEARCHSFCT 
It is called 
BLOCK 


f ol lowing 

BLOCK 

INSYMBOL 


procedures : 
IFERRSKTP 

enterid 


ERR AnDSKTP 
NEW 


by the following procedures 


STMOLEEXPR 

M % tlW 

READREADLN 

MCFTLEBLOC 


INSYMBOL 

FIELDLIST 


IMSYMBOL 


FACTOR 

VARTABLEDE 


PARAMETERL 

TYP 


SEARCHID 

ERROR 


SK TPTFERR 

Tt Is r.hc' mat of ,5 stronolv connected component, 
which consists of the followin'* Procedurots) s 

RK r P I EE» R ■ 

It calls f h e follow Inn procedures : 

IMSYMRlt E (1 1? H E 

If 1 5 nUat 1 hy t ho f ol lowl no procedures ; 

BTiOOK R *’ATFMP'.|T PROrttn'JPRh papa /ETERI, 

typenFTr.-vi comstamtde typ ' firlplist' 

rm;cjTA-'F FRRAMDSKTP l^SWR-SKIP 

ST R T hf G 

It is fne root of a stroool v connected component , 
which consists of the followina Procedure ( s 5 s 
STRIPS 

It calls the following procedures : 

COMPTYPP’R 

It Is called hy the following procedures ! 
EXPRESSION NEW WOT IgWRlXE T.oahAPPRFS 

STMPhE TYPE 

T Y P 

Tt is the root of a stronolv connected component, 
which consists of the following nroce lure (s ) 5 
TYP FIFT,,oi,TST 

Tt calls the followin'* procedures s 

TFERRSKTP FTFI.hr, TSF GETBOHNhS TYP 

SEARCHTh T "I SYMBOL MEW STMPt,ETYPE 

T t Is call pi Hy the following procedures : 

Y A R T A a 1, c : h F TV PFDgCli AR TYP FIEIihLIST 

TYPmnpcr A V 

It is the root of a stroooly connected component, 
which consists of the follovina orocedure(s) ; 

TYPEOECl, n R 

It car is the followina procedures : 

ERROR W I r . 1 T JFERPSKTP ENrFRTD TYP 

I M ,S Y M B ') L MEW ERR AWhSKT P SKI PTFERR 

It is called Hy the f ollowinq procedures s 
R r . n f! x 

VAR I ABIjEhf; 

It is the root of a stronolv connected component, 
whicn consists of the followina orocedure(s) s 

V ART ARfjFDE 

It calls the followina procedures : 

ERRORWITHT IEFRRSKTP TYP SKI PTFERR 

INSYMR'ir, ENTER ID NEW ERRAMDSKTP 

Tt is called hy the followina procedures : 

PT.npK 


Followina procedures are declared in TYP 


FIFLOLTST 

Tt calls the followina procedures s 
IFERRSKTP FIFLhLTST CONSTANT CQMPtYPER 

SFAROU I n ERRANDSKTP RFC SECT TON TYP 

TNSYdBOr. FNTERTD NEW SK I PTFERR 

It is called hv the followina procedures s 
TYP FtEhDLTST 


r.nap 

Tt is the root of a stronolv connected component, 
which consists of the followina orocedureCs) : 
f.OGR 

It is called hv the followina procedures : 
stmpletypf 


VARTART.EDF 

STNPIjETYPE 


FTEhDT.IST 


ERROR 

SKTPIFERR 


ERROR, 


ERROR 


string 

ERROR 
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FMT,r,l«T!P 0 

rt_ is the mot of a strongly connected component, 
consists of the follow! on Procedures) j 

mu., wo ?n 

Tt '“Oils me fnllovlm procedures : 

f!H>n J ” it 

Tt Is railed by t;h« following Procedures J 

r ASP’S T A Tm FUTERRODY PUtPAGER 

CKTPM’Annp 

rt is ton r aot of a stronolv connected component , 
w h i c n consists of too following orocedureCs) ; 

in y t p a 04000 

Tt calls the following procedures t 
MACROS T 4CRFMEVTR EFTCHBASIS 

Tt ts called hy t to following Procedures : 

W TTMST AT K K SELF CTO R 

TNCREMENTR 

Tt. is the root of a stronolv connected component , 
which consists of the following orocedureCs) : 

T U C R 8’ u F! M VP 

tt calls the following procedures ; 

ERROR 

Tt is called t>v the following procedures ; 

ASRTlM'icf r EXPRESSION FACTOR TTMffJ 

NEW UNPACK PACK WRITEWRITE 

SFt,FC r O n LOAD ADORES DO AD MAKECOOE 

TN SEPTA DOR 

Tt is t K e root of a stronolv connected component, 
which consists of the following procedure(s) 5 

T M S F R T \ h O R 

It Is caned hv the following procedures : 

BODY STATEMENT LOO P ST ATEM FORSTATEME 

RFPFATSTAT CASESTATEM IMSERTROIJM IFSTATEMEN 

L E A V E h D h Y DEPCST 

LF AVERODY 

tt Is the roof of a stronolv connected component, 
which consists of the following orocedureCs) s 

LEAVEBDDY 

Tt calls the following Procedures s 

INSERT A ODR M ACR03R SUPPORT MACRH3 

PUTLXNER 

Tt is called by the following procedures ; 

BODY 

LOAD 

It is the root of a stronolv connected component, 
which consists of the following orocedureCs) ; 
D n A n 

It calls the following procedures 1 
MAKECOUF TNCREMEN.TR 

Tt is called hv the following procedures s 
FORSTATEME CASESTATEM ASSIGNMENT EXPRESSION 

TERM FACTOR SEARCHCODE CALL 

PROTECTION PUT9BITST0 RELEASE NEW 

PACK WRITE WRITE GETPUTRESE SELECTOR 


T.OAOADDRES 

It Is the roof of a str 
which consists of th 

TiOAO ADORES 

Tt calls toe following 

MACRO 

STRING 


onolv connected component, 
e following orocedureCs) : 


X, VJ A. X, W Vi ,U1M 

EETCHBASTS 

INCRFMENTR 


procedures 

ERROR 


DEPCST 


Tt is called bv the following procedures * . 

nvnnppc t ah CAuLNONSTA EOFEOLN 

PACK. WRITEWRITE 

GETFILENAM 


ASSIGNMENT 

MARK 

GETPUTRESE 


EXPRESSION 

UNPACK 

getstrtnga 


» *■ y 


RUNTIME 

GETPUTRESE 

GETPARADDR 


WHILESTATE 

GOTOSTATEM 


MACR04 


SIMPLEEXPR 
C AIjLNONSTA 
UNPACK 
MAKEREAL 


MACROS 


GETTNTEGER 

READREADLN 


jjj 

18 

80 

8!) 

50 

tO 

20 

3 ! 

40 

50 

fiO 

70 

60 

09 
00 

10 
20 

3 2 

40 

50 

50 

79 

BO 

90 

00 

10 

20 

30 

40 

50 

60 

70 

80 
90 
00 

» 

3 

4 

5 S 

0 

80 

90 

00 

12 

IS 

50 

60 

70 

BO 

90 

00 

10 

20 

30 

40 

50 

60 

71) 

80 

90 

'00 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


mac*",' ! 

T t- 
J RC 


t f , £ tj'p root nf a strongly connected comnonent , 
r , on$lRts of thP f onowl rvi orocedureCs) s 


If. ?1 is rhp following Procedures : 

f- ° 7-' ' > R FRRORWT t HT 


1 s call ei b 

f' f |\ pp-Mf; 

A K r- r-ific ' MACRflRR 

M ^ f.m ^ (« 


Y the following procedures : 

carestatem ■ ~~ 


ASSIGNMENT 
MACP04R 


LDADADDRES 

macro) 


m a ^ w n 

? t 

'* n 

T t 

M A 

t r 

S ' T 

A S 

p p 

s o 
p tr 

C,K 

M A 


3 

■f 

TM 

CR 

<r* 

r w 
1 

T *-? 
R T 

n t 

R 

ME 

rp 

K "*• 


s the root of 
hic h consists 

n r 

alls t p p 

D 

s relied 
STATE'! 


a strono.lv connected component , 
of the following orocedureCs) : 

following procedures % 


r; M '»7 S' m T 
BOTTOM 

ASS 

UTRFSE 

cope 


by the following procedures : 
FORSTATEMF! CASFSTATEM TFRTATEMEN 
SIMPliEEXPR FACTOR 

PREDSUCC non 

ABS RUNT THE 

IJMPACK PACK. 

SUBLO^BHUN MAKEREAL 
ieavebody FMTERBODY 


EXPRESSION 

FOFEOt.N 

TIME 

MEW 

SELECTOR 

FETCHBASIS 


m A r p n 3 R 

T t 1 s the root of a stronalv connected comoonent , 
w'h| ch consists of the following orocedure(s) ; 

M A C » ~n q 

it calls rgp following procedures : 

m a r p h 

If d s, railed nv the following procedures t 
I. H O P S T A T K e FORSTATEME NWT T.ER f ATE GOTOSTATFM 

C AM. VO JSTA PREPSUCC NEW UNPACK 

SFLF'CTpP STdRF MAKFCODE LEA VFBODY 

SUPPORT PUTTjTNER 

HACRH4 

If is the mot of a stronalv connected component, 
which consists of the following orocedureCs) ? 

m AC* R 04 

It calls the following procedures s 

MACRO 

If. Is called hy the following procedures : . 
FORSTATENE ASSIGNMENT expression factor 

ROFFniW GETLTNENR MARK NEW 

PACK SET, ECTOR FETCHBASIS LEAVEBODY 

M A C P O 4 R 

Tf is the root of a stronalv connected component, 
which consists of the following Procedure C s ) ; 

M ACRO IR 

It calls the following procedures : 

MACRO 

rt is called by the following procedures : 
rrPR p 85n M PUTLTNER PUTPAGER 

arpgp 

Tf is the root of a stronalv connected component, 
which consists of the following orocedureCs) ; 

macros 

Tf "calls the following procedures : 

{a ^ rj 

Tf 'is called by the following procedures i 

ASS T GH'iFNT STORE MAKECOOE GETPARADDR 

M A K F c n o E 

t f is the root of a stronalv connected component, 
**hich consists of the following orocedureCs) i 

MAKFicnnF 

Tf calls the following Procedures : 

MACRHIR macro macros incrementr 

DFPCSf MACRO.3 

Tf is called by the foil owing procedures : 
jrriRSTA TEHE ASSIGNMENT SEARCHCODE PREDSUCC 


« « iu 


STORE 

MACR04 


GOTOSTATEM 

CAM.NOfJSTA 

TRUMC 

PUTRBTTSTO 

WRITEWRTTE 

LOADADDRES 

PUTLINER 


EXPRESSION 

PACK 

ENTERBODY 


CALLNONSTA 

UNPACK 

ENTERBOny 


FETCHBASIS 

LOAD 



if l s t h e rnnt- of * strongly connected component , 
"'him consists of the following orocedureCs) ; 

PUT LITER 

Tt calls the followt.no Procedures % 

’iacphb MACR03R PUTPAGER 

T t is re L 1 ed hv fhp following procedures ; 

STATEMENT LEAVFRODY 

PUT p AGE R 

it Is me root of a stronolv connected comoonent, 
which consists of the following Procedure Cs 1 s 

PHTPAfJER 

Tt ceils the following procedures : 

FULL iORh «ACRH4R 

rt Is called by the following procedures t 

PUTLTN5R 

STATEMENT 

Tt Is the root of a strongly connected component , 
which consists of the following orocedureCs) ; 

S t A T E " E 'J T WTTHSTATFM FORSTATEME LDOPSTATEM 

VHTLESTATE CASESTATFM IFSTATEMEN COMPOtlNDST 

Tt calls the following procedures ; 

SKTPTEEPR WTTHSTATEM FORSTATEME LOOPSTATEM 

WHILESTA IT CASESTATEM IFSTATEMEN GOTDSTATEM 

ASSIGNMENT CALL SEARCHTD FRRANDSKIP 

TMSYMRir, T uj5e»t ADOR ERROR 

It is called hy the following procedures : 

Rnny wttrstatem LHnPSTATEM ehrstateme 

REPEATSTA'’’ CASESTATEM trSTATEMEN COMPnllNDST 

STORE 

Tt is the root of a stronolv connected component , 
which consists of the following orocedureCs) : 

store 

It ceils the following procedures : 

MACRH3K MACRO MACROS FETCHBASIS 

Tt is caned hy the following procedures : 

ASSIGNMENT getltuenr new 

SUPPORT 

It is the root of a stronolv connected component, 
which consists of the following orocedureCs) s 

SUPPORT 

it calls the following procedures i 

MACRO.BR 

It. is celled by the following procedures : 
ASSIGNMENT predsucc trunc page 

UNPACK PACK WRTTEWRTTE FREAK 

GETPUTRESE SURLOWBOUN MAKERFAL LEA VEBODY 


WPTTEMC 

Tt is the root of a stronolv connected component , 
which consists of the following orocedureCs) ; 

WPTTEMC 

Tt calls the following procedures : 

WRTTELM MCT.TRRARY MCVARTQUS »*C8Y»*B0LS 

MCGLnnATiS MCFTT.EBLDC 

It is celled hv the following procedures s 

BODY 

Following procedures are declared in WRITE M C . 


MCCnnE 

Tt is the root of a stronolv connected component, 
which consists of the following orocedureCs) ; 

ECOCIDE 

It calls the following procedures : , ^ 

WRITEPATR WRTTERECHR NEWPAGER COPYCTP 

SHnWRELHCA wrtteworo WRITE neuezeile 

ii/RTTEFI R.$T WRITE BUFFE 

Tt is called hv the following procedures ; 

WRIT E M C 


REPEATSTAT 


REPEATSTAT 

COMPOUNDS? 

PUTLINER 


WHILES! ATE 


NEW 

READREAQLN 

ENTERBODY 


MCCOHE 


unpack 

WRITEBLOCK 


nr’’ n,F 

it is t >10 root of a stronqly connected component, 
which const sts of the following orocedure(s) : 

■TFTi.PBnr 

it cei i c the following Procedures s 

ComP-i’vofs WRTTEWORD WRITEBLOC* WRITRFTRST 

it is cel lei by the following procedures : 

WPITh’T 

^rCT.nBAf.e 

Tt Is the root of a strong] v connected component, 
which consists of tne following ProcedureCs) s 

MCGLDMf.S 

It ceils toe following Procedures : 

VlRITEWhPD ifRITEBLOCK WRTTEFIRST WRITEBUFFE 

Tt is celt ed by the following procedures : 

WPTTE«C 

MCLIRR ARY 

If. Is the root of a strongly connected component, 
which consists of the following ProcedureCs) s 

MCLIRR ARY 

It calls the following procedures s 

WRITFPATR WRITEIhENT WRITEBLOCK WRITFHEADE 

It. is relied Hy the following procedures s 

WRITE** C 

McsYMBnT.g 

It Is the root of a strongly connected component, 
which consists of the following ProcedureCs) * 

»f SYMBOL*; 

Tt calls me following procedures : 

W P 1 T E n A T o wrTTFTOPMT WRTTEBLOCK WRITFHEADE 

It Is coned hv the following orocedures ? 

wo ttw . * 

Mf'UftRjnns 

Tt is the root of a stronolv connected component, 
which consists of the following Procedure Cs ) ; 

MCVARTDMS 

It calls the following Procedures j 

WRTTET PEP T PIITRFT.CODE WRITEPATR WRTTEBLOCK 

Tt is called by the following procedures : 

WRITE**" 


NEdEZEILF 

It is the root of a stronolv connected component , 
which consists of the following orocedureCs) t 

NEUFZFTLE 

following procedures ? 

WRITELM 

by the following procedures s 

WRITEWORD 


the 


It calls 

WRITE 

It is called 
MCCnOF 


PUTRELCODE , 

Tt is the root of a stronolv connected component, 
which consists of the following Procedure(s) s 

PHTRELChOF 

Tt calls the following procedures ; 

PUT 

Tt is called by the following procedures : 

MCV ART TUB WRTTFWORD WR ITEBLDC* 


RAPIY 50 

Tt is the root of a 
which consists of 
RADIX*?’) 

It is called by the 
WRTTF»TDEflT 


strongly connected component 
the following orocedureCs) 

following procedures ! 


WRITEHEADE 



SHOWRFLOCA 

It ts the root of a stronalv connected component , 
which consists of the folJowl.no nrocedure(s) ? 

SHOvJdPunrft 

it calls toe followino procedures ; 

WRITE 

If ts called bv the following procedures t 

MCCODE WRTTEWORD 

WRTTW.nCK 

It Is the root of a stronalv connected component, 
which consists of the following procedure(s) : 

wRITEBLHCK 

It calls the following procedures : 

PUTRELCODE 

It Is called by the following procedures : 

MCLTP. R*\RY MCSYMBOLS MCtf ARIOUS MCCDDE 

YCFTf.E Ififir WRTTFWDRD 

WRirFFTWST 

Tt is the root of a stronalv connected component, 
which consists of toe following procedure C s ) s 

'• n f -r'T IPST 

it. calls toe following Procedures s 

w RITR vi P TTEf.V 

If is call'''’ bv top foil owing procedures : 
f CCODP , 5 rr,r,'lBRT„S MCPXuEBttOC 

W R T I F H <r u FI C 

Tt is t>r root of a stronalv connected component, 
which consists of the following orocedure(s) : 

WRIT F R * ^ f ' 17 

if c^iis t he following Procedures • 

WRITS writ FLU 

Tt is coned by the follow inn procedures s 

dcr.TRRAoy wfcsYMsm.s mcvartqus 

W P T T F T O F f ’ t 

It is the root of a stronalv connected component, 
which consists of the following procedures) ; 

W P I T F I OF it 

If calls the following procedures : 

I* P T T E 1 r n R A n i y 5 n WRITE WRITER 

It is called bv the tnl lowing procedures t 
M C L T Ft R ft R Y MCSYMBDL5 dCVARItJtJS 


MCGLPRALS 


p 


H 


WRTTEPA I R 

If is f he root of a sf ronqly connected component , 
which consists of the followin'! Drocedure(s) : 

WRT T EPATR 

Tt calls the f ollowlna procedures ? 

WRITEWOP!) 

It is called by the following procedures s 
MCLTRRAR Y MCSYMBnr.S MCVARIOtJS MCCODE 

WRTTEWORP 

It Is the root of a strongly connected component, 
which consists of the following procedure Cs ! ; 

WRITE WORD 

It calls the following orocedures : 

SHOtfRELOCA WRTTE "JEUEZEILE PUTRELCODE 

Tt is called by the following orocedures ; 

MCCnOE WRTTERECOR MCGLOBALS MCPILEBLOC 

WRITER AIR ■ ' 


p ollowi no nrocMures am ieclared in MCCODE 

CO^STRP^-'VT 

It is me root of a strongly connected comoonent, 
whign consists of the following orocedureCsl : 

COMSTR fog r 

It f s called by the following procedures ; 

Cnpyr^e 
r n n y f $ n 

Tt is the root of a strong.lv connected comoonent, 
rnp ^^,g h consists of the following orocedure(s) s 

r *■ ca 1 is the following orocedures : 

UPTTE R o COR C Q "•! 3 TREC S I 

it „cali ed hy the following procedures ; 

CnpYCtP 

COPYCTP 

Tt 1 s the root of a stronolv connected component, 
which consists of the following orocedureCs) ; 

COPYCTP COPYSTP 

it calls the f ni lowing procedures s 

CnPYCRP COPYSTP COPYCTP WRITERECOR 

It is called hv the following orocedures ; 

MCCODE COPYSTP COPYCTP 

COPYSTP 

Tt calls the following procedures j 
COPYSTP COPYCTP. WRITERSCOR 

tt Is called ov the following orocedures : 

rnpYSTP COPYCTP 

WRTTERECOR 

Tt is the rent of a stronolv connected component , 
which consists of the following procedure(s) s 

WR t TER ECilR 

Tt calls roe following procedures : 

VRTTR fORO 

it is called by the following procedures ; 

mccode cgpvsTP copyctp cqpycsp 


f o 1 lowing orocedures are declared in STATEMENT 


A S S I C M M E <1 f 

Tt is the root of a strongly connected component, 
which consists of the following procedure C s 1 j 

ASSTG'HEUT 

Tt calls toe following procedures 5 
MACR04 ‘"ACROT INCREMENTR MACROS 

.SUPPORT MAKECODE GETBQUNDS STORE 

l, n A 0 MACRO FETCHBASIS ERROR 

f’nMOTVPCS EXPRESSION INSYMBOti SELECTOR 

it Is called by the following procedures ; 

STATE M R U T 


i <* 


WRITEBLOCK 


WRITETDENT 


LOADADDRES 

MAKEREAL 

STOREGLOBA 


»<n<> 

|0 70 

CALL 




03 D 

It calls the 

following 

procedures : 


04 0 

CAM.MOMSTA 

KOPKOTiW 

PREDSUCC 

CHR 

os 0 

ODD 

TRIIWf 

SOR 

A (IS 

06 ( ' 

RUNTIME 

hOkn 

EXPRESSION 

PROTECTION 

07 0 

PUTRRI TSTO 

RRTfiT WRMR 

RELEASE 

MARK 

09 0 

UNPACK 

PACK 

’ writswrtte 

BREAK 

TOO 

GETPU FRESE 

FRRQR 

IMSYMBDL 

100 

It Is called 

by the following procedures i 

1 1 o 

STATEMENT 

FACTOR 



111 




1. 30 

CASESTATFM 




1 40 

It calls the 

following 

procedures : 


11 SO 

EULLWORD 

T INSERT ADDR 

XJTSERTBOJJN 

STATEMENT 

160 

COMPTYPES 

CONSTANT 

INSYMBOL 

ERROR 

17 0 

MACRO? 

LOAD 

EXPRESSION 


1 g o 

It is called 

by the following procedures : 

>1 o 0 

Dno 

STATEMENT 





1 .i 
C H 

i :> 

4 ft 
B 4 
ft 0 

fe7 f » 
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b o •s 
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70 
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170 


CfV4pnUNDRT 

It calls the 
PRRHR 

ft Is called 

3 nr |\ t f? M ?£ « J 


follow t n a procedures : 

T \) g y m mif, STATEMENf T 

hv the following procedures 


Px&PFRST n 4 
T t rails 

M A CRH 4 P 
w A K P R R A r , 
T *\SYK*Klf. 


f h (» 


following procedures i 

’’ A f’ R 0 ,3 R CHANGEBOOL 

ERROR MACRO 4 

T.nADAlonpFS MACRO!? 


SEARCHCODE 

LOAD 

INCREMENT!? 


T t is c a l 1 e m bv r hp foil owing procedures : 

Lnoogr A'rr-'« EnRSTATE* , F WHIT-ESTATE PEPFaTSTAT 

F 5 TiT!?"|.-,>i ASSIGNMENT FACTOR 

pd n TF C r t o v PUT9RIT$TO RELEASE 

PACK WR TTEWP tTE GFTPUTRFSE 


CALL 
NEW 

GETSTRTNGA 


F 0 R S T A T E M E 

It colls the followi.no procedures : 

TMSFRTAnoR M a C r n 3 p STATEMENT 

MACRO FETCHRASTS MACR 04 

FRRANOSKin T 1 , SYMBOL ' COMPTYPES 


MACROS 

LOAD 

ERROR 


Jt is called bv the following procedures s 

STATEMENT 

GOTOSTATEM 

Tf is the root of a stronalv connected comoonent , 
m>r-f 1 cl.??r.M 0nsi sts nf: fhp following orocedure(s) : 

it cells the f o.l lowing procedures ; 

TMSERTAnOP macros MACR03R TNSYmBOL 

Tt is celled by the following procedures : 

statement 


80 

09 

T F S T A T F 4 K ! 1 


It: calls the 

to 

TM 55 FRT Annp 

20 

FXPPRSSI - 1 M 

30 

Tt is caliph 

40 

£ ft 

RT ftTK‘*EM 

60 

t.ohpctat F 4 i 

W 

It calls t n e 

80 

FRRHR 

90 

T 

90 

It is cal 1 ei 

10 

rh T & T F M F M T 

;20 



MACROS 


STATEMENT 


ERROR 


tnrertaodr 

STATEMENT 


MACR 03 R 


ERR AMDSKIP 


M AKERFAL 

Tt is t h e root of a stronolv connected comoonent, 
which consists of the f oi lowi na procedure (s ) * 

M AKERFAL 

? t calls the following procedures ; 
m A if ERF A f ( SUPPORT MACRO? LOAD 

Tt is called hv the following procedures : 

ASSIGN i f w t EXPRESSION STMPLEEXPR TERM 

M AKERFAL 


ORD 

TIME 

PAGE 

NEW 

READREADLN 


MEW 

MACRO 


STRING 

COMPTYPES 

STMPLEEXPR 


casestatfm 

callmowsta 

unpack 

SELECTOR 


MAKECnpE 

EXPRESSION 

SEARCHin 


ERROR 


INSYMROL 


EXPRESSION 


CALLNONST A 


rt calls tne following procedures : 

ERROR TMRERTADDR EXPRESSION INSYMBOL 


If ! s celled by the following procedures j 

statement 


SELECTOR 
It is t h 
which 
SELECTOR 
CALL 

PUTRRTTS 

NEW 

READREAO 

It calls 

SEARC l, SE 
SO Bl.fi V 4 0 
i m svv ft ,ir, 
ft Is 0 => 
?• T T H S T A T 
GFTFTLEM 


e root of a stronaly connected component , 
consists of the following procedural s) s 


TO 


the 


STMPLKEXPR 

PROTECTION 

VARIABLE 

PACK 

GETSTRINGA 


TERM 
PAGE 
RELEASE 
WRITEWRITE 


i ; ! 


led 


n” 

A M 


EXPRESSION 
callnonsta 
GETLIMENR 
UNPACK 
GETPfffRESE 

following procedures 
M ACR 03 R MACR 04 

getboumds comptypes 

GETPAR ADDR IPERRSKIP 

hv the following procedures 

ASSIGNMENT FACTOR GETXMfEGER 


INCREMENTS 

LOAD 

ERROR 


i'IHTL estate 

It calls the following procedures s 
TMSERTAnno vaoRrrjR statement 

EXPRESSION 

if is called bv the following procedures ; 

ST ATE ‘•EOT 


ERROR 


i»> J T H S T A T E '• 

it calls toe following procedures s 
Stateme’ T M A C R o 3 EETCHBASIS GETPARAOHR 

ERROR IMSYMBOl, SEAR CHID 

rr i s called by the following procedures : 


STATE' 


Roi lowing procedures are declared in selector 


SCRLOWROnu 

It is the root of a strongly connected component, 
wMch consists of the following orocedurefs) ; 

SUBLOWROUN 

tf calls the following procedures : 

SUPPORT MACROS 

Tt Is called by the following procedures s 

SELECTOR 


statement 


FACTOR 

GETEILEMAM 

MARK 

BREAK 


MACRO 3 

expression 


VARIABLE 


INSYMBOL 


SELECTOR 


Eollowinn Procedures are declared in EXPRESSION 

CHA MGEBOOL 

Tt is the root of a stronolv connected component, 
which consists of the following orocedurefs) : 

C W A M G E a n n L 

Tt is called by the following procedures : 

EXPRESSION 

searchcode 

It is fhp root, of a strongly connected component, 
which npnsl sts nf the following orocedurefs) : 

BEARCHC^DE 

Tt calls the following Procedures j 

LOAD CRANGEOPFR MAKFCOOE 

if is called hy the following procedures : 

EXPRESSION SIMPLEEXPR TERM 

K I MpT.EEX PP 

Tt calls the following Procedures ? „ 

MAKERFAT, COMPTYPES SEARCH CODE ERROR MACROS 

T.ntn TERM INSYMBOL 

Tf Is caHed by the following procedures s 

FX PR ESS TOM 



Pol lowing procedures fire declared to STMPDEFXPP 
TfPftM 

it calls the fol ln<*;lnq procedures s 

ERROR MAKER SAD CDMPTYPE5 SEARCHCOOE 

l, HAD FACTOR 

It Is called hv the following orocedures : 

STMPDEEXPR 

Following procedures are declared in term 
FACTOR 

It calls toe follow! no Procedures : 

lEERRSXTU OFPCST MACR04 COMPTYPES 

NEW MACROS FACTOR ERROR 

COdSTAvr SELECTOR LOAD CAfit* 

S F A » C 0 r 0 C RRAMDSKIP 

Tt is cal i pa tv the following orocedures s 

TERf! FACTOR 


p oi lowim orocedures -ore declared in SEARCHCnDE 



C^AiVOE OOFR 

IT 1 s the root of a strongly connected component, 
„„ ''Ilt^„S ons1sts ° f th * following procedure(s) : 

It Is called ov the following procedures ; 

SEAPCMCOOE s 


Followin'’! orocedures are declared in CASE-STATE" 

®* 

TFSERTPnu’J 

It 1 s the mot of a stronolv connected component , 

TMSERTan!iu° P ' s1 Sts Df the procedure (si : 

? £ Fa 1 1 s tne fol 1 owino procedures j 
I)FPCS T INSERT ADDR 

Polled h Y the following procedures : 

C A S $ T A t c : r m 


Fol lowing orocedures are declared in CALL 

APS 

Tt is t K e root of a stronolv connected comoonent , 
.which consists of the following Procedure Cs) ; 

AOS 

Tt call*: the foilowina Procedures : 

ERROR macro;? 

Tt is celled hy the foilowina procedures s 

C A Mi 

UR RAF 

it calls t he foilowina orocedures i 

5 M p P 0 p T OETF T f,E w A M 

It is coiled by the following procedures : 

r Ai.r, 

CAU.A'ONS 16 

it rails tne following procedures ; 
f * A C P 0 ^ R DOApMWRES M A REREAD lift AD 

IFERRSk TP CoMPTYPFS SF ARCH ID ERRAwDSKIP 

ERROR MACRO! MACRO? 

Tt is called hv the following procedures ! 

CAM 


I MS YM ROD 


IMCREMEMTR 

EXPRESSION 

IWSYMBOL 


EXPRESSION 

INSYMROD 
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H2P 
533 
1(147 
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rHP 

Tt is t H e mo 6 of a stronalv connect ed component, 
whi et consists of the following procedure (s ) s 

cup 

■it calls thp following procedures ; 

r' P p no 

I * Is m 1 1 e a hy the foil owino procedures s 

r all 

FnPfrnLM 

ft, l.s the root of a stronalv connected component, 
which consists of the following omcedurefs ) : 

EHEEDLU 

tt calls the fol lowing procedures ' 

MACR"? MACR04 LOADADDRES ERROR 

It Is called by the f oil owtnq orocedures ; 

CALL 

G F T E T L E H A M 

It calls the following procedures : 

LO AD 4 DDRES SELECTOR ERROR CQMPTYPES 

INSYMBOL 

It Is called by the following orocedures s 
PAGE ClETluTNENR WRITEWRITE BREAK 


GET1MTEGER 

It. Is the root of a stronalv connected component, 
watch consists of the foi lowina orocedure C s ) : 

CET T " TECER 
Tt calls the 

t.n Ann n does 

G K T fj T K E '■'» 

T t galls toe 

ERROR 

r; ft s' I 

T t is colled 
CALL 

GETPHTRESE 

t t calls the 
SUPPORT 
EXPRESSTO'-' 

VARIABLE 
It Is called 
CAM, 

MARK 

It calls the 
ERROR 

It is palled 
CALL 


following procedures s 
SELECTOR SEARCHID 


following procedures ; 

STORE MACR04 COMPTYPES 

hy the following orocedures ; 


following orocedures s 

COMPTYPES MACRD3 TNCREMENTR 

TNSYMROL GETSTRtNGA ERRAmDSKIP 

by the following procedures s 


following orocedures t 

MACRH4 ' LDAHAnORES COMRTYPES 

by the following orocedures ; 


ME *4 

Tt calls tne following procedures ! 

STORE MACRH3R SUPPORT M ACR04 

LOAD GRTROHNDS EXPRESSION COMPTYPES 

CONSTANT TNSYMROL ERROR VARIABLE 

It is called bv the following orocedures ? 

CALI. 

nnn 

It Is the root of a strongly connected component, 
which consists of the following procedureCs) s 

ODD 

Tt calls the following procedures ; 

MACROS ERROR 

It is called by the following orocedures i 

CALL 


h • i y 


SEARCHIO 

RSADREADLN 


VARIABLE 


LOAD 

LOADADDRES 


VARIABLE 


MACROS 

STRING 

INCREMENTR 


np n 


m 

50 ft 
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300 


rt- is the root of a strongly connected component, 
ronsi sts of the following orocedure(s) ; 

'tpp 

Tt r a 1 1 s the f ol lowing procedures ? 

cop ns 

rt cell e-i hy the following procedures : 

cam, 

p ft r v 

tt cells the following procedures : 

v,Act ? )ss INCREMENT!* NACR04 SUPPORT 

M ft C R H 3 RGTBOUNDS CbMPTYPES EXPRESSION 

ERROR LOftDADDRES VARIABLE 

Tt is called by the following procedures s 

CALI. 

PA Of? 

It calls the following procedures s 

SUPPORT GETFILENAM 

It is called by the following procedures t 

CALL 

RREDSUCC 

It is the root of a strongly connected component, 
which consists of the following orocedureCs) s 

PREDSUCC 

It calls the following procedures i' 

MAKE Chi? SUPPORT MACROS MACRD3R 

Tt is called by the following procedures t 

cm- r, 

o ROT PC T 1 1 ■' 

It calls toe following Procedures : 

ERR™ V A PRO 3 LOAD EXPRESSION 

Tt is called hy the following procedures : 

CALL 

RHTRR ITS r :7 

if calls the following procedures s 
w A C P O 3 LOAD EXPRESSION 

rt is called hy the following procedures ? 

C A LI- 
RE ADPE ft DIM 

Tt calls toe following procedures : 

IN5VMR3L SUPPORT ERROR COMPtYPES 

VARIABLE GETETLENAM 

it is called hy the following procedures ; 

C A L I. 

RELEASE 

It calls the following procedures t 

ERROR MACR03 LOAD EXPRESSION 

rt Is called hy the following procedures s 

CAL’ 1 ; 

RUNTIME 

Tt is toe roof of a stronolv connected component, 
which consists of the following orocedureCs! : 

RUNT t me 

rt calls the following procedures : 

MACRO! INCREMENTS 

Tt is called hy the following procedures ; 

CALL 


It is the root of a stronolv connected component, 
whicn consists of the following Drocednre(s) s 

5 DR 

It calls the following procedures ; 

ERROR MACR03 

If is called bv the following procedures : 

CALL 

TIME 

It is the roof of a strongly connected component, 
which consists of the following orocedure(s) s 

T T M E 

T r calls the following procedures s 
MACRO 3 ’ INCREMENTR 

If, is called by the following procedures i 
CALL 


LOAD 

INSYMBOL 


ERROR 


LOADADDRES 
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Tt l ?' , t 11 root of a stronalv Connected component , 
^ no consists of tne'-fo Ilyina Procedures) s 

T p f 1 M f * 

)t roils f ho fni] owl no Procedures : 

'-Hi'M'r" 'urini error’ 

T t 1 s ca 1 . 1 ed hy the followlna procedures ; 

CALL ' - ' 

rifj p ACK 

7 t. r^iis the following procedures : 

dAf'R tlK' o ATP0 1 SUPPORT MACROS 

(IF rune - os T*,CRFPFMTR CONPTYPES EXPRESSION 

E R Ph R TiOAHADPRES VARIABLE 

tt is celled hy the following procedures : 

call 

V A R T A b b E 

'It calls The foil owl. no procedures : 

SET, EC TIN ERROR IMSYMROL SC ARCH TP 

Tt Is called by the following procedures : 

GFTL T MgNR MARK MFW UNPACK 

REAOREAOLN GETPHTRESE 

WRTTEWRtTC 

It calls the followlna Procedures s 

SUPPORT QETBOUNDS STRING MACR03 

TMCREMENTR TNSYMBOt, LOAPAhORES ERROR 

EXPRESSION OETFILENAM 

7^ is celled by the foil owlncr procedures t 

H A h t , 

foil owl no Procedures are declared In GETPUTRF5E 

GKTSTRTVCA 

it calls the foilowtno procedures s 

1,0 ADA PORES UP W ERROR COMPTYPES 

I USY '* p IT. 

Tt is called Ky the foil owing procedures : 

Gt’T D 0 TRCRC 

Followlna procedures are declared In ASSIGNMENT 

SI flRFGT.OBA 

Tt- is the root of a stronaly connected component, 
which consists of the followlna orocedure(s) ! 

S'fORKGLOH A 

It calls the followlna procedures : 

ERROR STORCWORP GETNEWGLOS 

Tt Is called hy the followlna procedures s 

ASS tGMMEMT 

Fni i owl no procedures are declared In STOREGLnrtA 


LDAP 

IMSYMBOL 


PACK 


COMPTYPES 

r.OAo 


EXPRESSION 


getnewglor 

Tt is the root of a stronalv connected component, 
which consists of the followlna orocedureCs) ; 

GFTMEWGT 'JH 

it calls the followlna procedures : 

m E W 

it Is called hy the followlna procedures : 

pmOREGLOH A 

STOREWORO 

Tt Is the root of a stronalv connected component, 
which consists of the followlna orocedureCs) s 

STOPEWIRP 

T t calls the followlna procedures s 

ERROR wiTHT 

If is called hy the followlna procedures : 

STORE GLOB A 

* ***** tt*********************************************************** 
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